Help for this page

Select Code to Download


  1. or download this
    package Foo;
sub TIEHANDLE { bless {}, $_[0]}
...
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
  2. or download this
    102, 111, 111, 98, 97, 114, 10
102, 111, 111, 98, 97, 114
  3. or download this
    package Foo;
sub TIEHANDLE { bless {}, $_[0]}
...
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
  4. or download this
    package Foo;
sub TIEHANDLE { bless {}, $_[0]}
...
print join(", ", map { ord($_) } split(//, $data)) . "\n";
chomp($data);
print join(", ", map { ord($_) } split(//, $data)) . "\n";
  5. or download this
    102, 111, 111, 98, 97, 114
102, 111, 111, 98, 97, 114