Help for this page

Select Code to Download


  1. or download this
    sub PrintList
{
my $line = $_[0];
my my @lines;
(@lines)=split(/\/n/,$line);