Help for this page

Select Code to Download


  1. or download this
        open (FILE, "<" . $quotedfullelementpath) or die "Can't open file 
+$quotedfullelementpath:$!\n";
    while (<FILE>)
...
      binmode(FILE);
      my $line1 = unpack("H*", $_);
      if ($line1 =~ /0d/)
  2. or download this
        open (FILE, "<" . $quotedfullelementpath) or die "Can't open file 
+$quotedfullelementpath:$!\n";
    binmode(FILE);
    while (<FILE>)
    {
  3. or download this
        open (FILE, "<:raw" . $quotedfullelementpath) or die "Can't open f
+ile $quotedfullelementpath:$!\n";
    while (<FILE>)
    {
  4. or download this
          if (/\x0d/)