Help for this page

Select Code to Download


  1. or download this
      if(length $c[-1]) {
    # Now actually processing the preceding literal
...
      push @code, ' $c[' . $#c . "],\n";
      push @c, ''; # new chunk
    }
  2. or download this
    
  my $literal = <DATA>;
...

__DATA__
this could be \'; system("ls -la");\'
  3. or download this
      if(length $c[-1]) {
    # Now actually processing the preceding literal
...
    push @code, " '$c[-1]',\n";
    $c[-1] = ''; # reuse this slot
  }