Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
# line 2 array.pl 
@ary = $ARGV[0] eq '-n'? (10..15) : (a..f);
print "@ary\n";
  2. or download this
    #!/usr/bin/perl
# line 2 script hash.pl
...
    quux => 0,
);
print "$_ $hash{$_}\n" for sort keys %hash;
  3. or download this
    #!/bin/bash
# script example.sh
...
do
    echo string: $key, number: $value
done
  4. or download this
    bash$ ./example.sh
10 is a
...
string: bar, number: 1000
string: foo, number: 42
string: quux, number: 0