Help for this page

Select Code to Download


  1. or download this
    $raw = ".declare book_num                     a13";
$var = substr $raw, 9;
print $var;

# prints "book_num                     a13"
  2. or download this
    (undef, $var, $val) = split /\s+/, $raw, 3;
printf '%s=%s', $var, $val;

# prints book_num=a13