Help for this page

Select Code to Download


  1. or download this
    split '|',     $line, 5;   # WRONG
split '\\|',   $line, 5;   # ok
split /\|/',   $line, 5;   # Better
split qr/\|/', $line, 5;   # Can also use qr//
split $re,     $line, 5;   # or compiled regexes
  2. or download this
    my @rec = = split /\|/, $line, 5;
  3. or download this
    my %rec;
@rec{qw( var1 var2 var3 var4 var5 )} = split /\|/, $line, 5;