Help for this page

Select Code to Download


  1. or download this
    $ARGS = @ARGV;
if ( -t and $ARGS eq 0 ) {
}
  2. or download this
    die "No input found\n" if ( -t and @ARGV == 0 );
  3. or download this
    $names++, shift if $ARGV[0] eq "-l";
  4. or download this
    @ARGV = "-" unless @ARGV;
  5. or download this
    exit 0 unless ( grep { -T or $_ eq "-" } @ARGV );