Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.

  •     my $i = 1;
        my %month = map { $_ => $i++ } qw/jan ... dec/;

    Hmmm. How about:

        my %month;
        @month{ qw/jan ... dec/ } = 1..12;

    And also:

        DOMAIN: while (<DATA>) {
            next if /^\s*$/;
            my @whois = `whois $_`;
            LINE: foreach my $line (@whois) {
                if ($line =~ /expire/i) {