Help for this page

Select Code to Download


  1. or download this
    my $record = REC::->new(
    map { s/#.*$//; /^\s*([^=]+)=(.*?)\s*$/ ? ($1, $2) : () } read_fil
+e($file)
);
  2. or download this
    $ perl -Mstrict -Mwarnings -e '
    my $raw_data = q{
...
AGE=15
RANK=Tier 1
URL=http://somesite.com
  3. or download this
    my record =map{