Help for this page

Select Code to Download


  1. or download this
    my %hash;
while (<DATA>)
...
440035528809    6946395707444   
332679554392    162874763688655 
913537320343    56726180700920
  2. or download this
    my %hash = (
440035528809=>'6946395707444',
332679554392=>'162874763688655',
913537320343=>'56726180700920',
);
  3. or download this
    use 5.010;
open my $perl, '>', 'perl.pl';
...
print $perl <<'CODE';
);
CODE