test13.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:58 2010 from test13.pl 2006/07/15 633.

#!/Perl
print "$0 ... Hello, World...\n";
my $tvar = "Links\\FIFA World Cup™ - Tournament -"; 
print "$tvar\n";
my $var = 'Cup™ -';
my $sch = '™';
my $len = length($var);
my $ind = rindex($tvar, "\\");
my $fold = 'unknown';
my $tit = $tvar;
if ($ind != -1) {
   $fold = substr($tvar, 0, $ind);
   $tit = substr($tvar, $ind + 1);
}
print "Folder is [$fold], title is [$tit] ...\n";
for (my $i = 0; $i < $len ; $i++) {
   my $ch = substr($var,$i,1);
   ##if ($ch == 0x99) {
   if ($ch eq $sch) {
      print "got [$ch] 0x99 ...\n";
   } else {
      print "got [$ch] ...\n";
   }
}
$var =~ s/$sch/&153/g;
print "New var [$var]\n";

index -|- top

checked by tidy  Valid HTML 4.01 Transitional