Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
You will see this often at the start of a Perl program:
#!/usr/bin/perl -w
use strict;
  2. or download this
    sub A
{
...
{
  my ($p1,$p2,$p3) = @_; #effect: make copy from stack passed
}
  3. or download this
    while ( (print "Enter Command: "), 
        (my $line = <STDIN>) !~ /^\s*q(uit)?\s*$/i  
...
{...}
sub delete()
{...}