Help for this page

Select Code to Download


  1. or download this
    if ($file) {
    ...
...
    ...
        foreach my $file (@all_lines) {
  2. or download this
        while (<$file>) {
        my @all_lines = <$file>;
        foreach my $file (@all_lines) {
  3. or download this
    my %systemcmd = (
    add       => sub { 'addqueue', '-h', $_[ 0 ], '-q', $_[ 0 ], '-i',
+ '3' },
...
    exit 0;
    }