Help for this page

Select Code to Download


  1. or download this
    my @fred = (1, 2, 3, 4, 5);
my $lastSub = $#fred;
print qq{$lastSub\n};
  2. or download this
    my @fred = (1, 2, 3, 4, 5);
my $lastSub = $
print qq{$lastSub\n};
  3. or download this
    s{(?<!\$)#.*$}{};
  4. or download this
    -background => #101010,
  5. or download this
    s{(?<!\$)#(?![0-9a-fA-F]{6}).*$}{};