Help for this page

Select Code to Download


  1. or download this
       foreach (@$files) {
      $table{$_} = substr $_, 0, -2;  
   }
  2. or download this
    >perl -wMstrict -le
"print qq{gcc $_->[0] -o $_->[1]}
...
gcc foo.c -o foo
gcc foo/bar.cc -o foo/bar
gcc foo/bar/baz.cpp -o foo/bar/baz
  3. or download this
    >perl -wMstrict -le
"print qq{gcc $_ -o @{[ s{ [.] [^.]* \z }{}xmsr ]}}
...
gcc foo.c -o foo
gcc foo/bar.cc -o foo/bar
gcc foo/bar/baz.cpp -o foo/bar/baz