Help for this page

Select Code to Download


  1. or download this
    # Replace with space
$myline =~ s/[^\x00-\x7F]/ /g;
...
# Delete character
$myline =~ tr/\x00-\x7F//cd;
$myline =~ s/[^\x00-\x7F]//g;
  2. or download this
    use Test::More tests => 4*7;

...
      is($x, $_->[2], 'encode del');
   }
}
  3. or download this
    ok 1 - linuxer s sub
ok 2 - ikegami s sub
...
ok 27 - ikegami s del
ok 28 - encode del
# Looks like you failed 4 tests of 28.