Deprecated: Using ${var} in strings is deprecated, use {$var} instead in /s/bach/a/class/cs000/public_html/pmwiki/cookbook/date.php on line 68

Warning: String offset cast occurred in /s/bach/a/class/cs000/public_html/pmwiki/cookbook/steganography.php on line 9

Deprecated: Implicit conversion from float 1260.2884615384614 to int loses precision in /s/bach/a/class/cs000/public_html/pmwiki/cookbook/steganography.php on line 9
Jack Applin | Perl / Def

PmWiki

pmwiki.org

edit SideBar

Example: def

    #! /usr/bin/perl -w

    use IO::Socket;
    use strict;

    die "usage: $0 <word> ...\n" unless @ARGV;

    my $sock = IO::Socket::INET->new('dict.org:2628')
            or die "$0: can't connect to dict.org: $!\n";
    print $sock map("DEFINE * $_\r\n",@ARGV), "QUIT\r\n";
    print <$sock>;