Help for this page

Select Code to Download


  1. or download this
    my @records = split($/, $data);
    
  2. or download this
    perl -le '$_="blah\r\nfoo\r\nstuff\r\n"; s/\012/\015/g; s/\015+/\015/g
    +; print join ":", split(/\015/,$_)'