hweefarn has asked for the wisdom of the Perl Monks concerning the following question:
if ( my $server = <$sock>) { print "Got Handshake: $server"; dialog( $sock, "HELO $forged_from\015\012" ); dialog( $sock, "MAIL FROM: $from\015\012" ); dialog( $sock, "RCPT TO: $to\015\012" ); dialog( $sock, "DATA\015\012" ); dialog( $sock, "$msg\015\012.\015\012" ); dialog( $sock, "QUIT\015\012" ); }
Edit by castaway added code tags.
janitored by ybiC: Retitle from "simple question" for future search-friendlyness
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Escape characters question
by simonm (Vicar) on Dec 29, 2003 at 07:58 UTC | |
|
Re: Escape characters question
by !1 (Hermit) on Dec 29, 2003 at 07:58 UTC | |
|
Re: Escape characters question
by revdiablo (Prior) on Dec 29, 2003 at 08:14 UTC | |
|
Re: Escape characters question
by jeffa (Bishop) on Dec 29, 2003 at 14:43 UTC | |
|
Re: Escape characters question
by Roy Johnson (Monsignor) on Dec 29, 2003 at 17:06 UTC |