Help for this page

Select Code to Download


  1. or download this
     if(/(\S+)\s+(\d+)/)
 {
  $mylist{$1} = $2;
 }
  2. or download this
    while (<MYFILE>)
{
 $alldata .= $_ ;
}