No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
2 Posted Topics
How can I turn on debug for fucntion sendSMTP ?? What is the function for var $debug ??? [CODE] #!/usr/bin/perl -w use Socket; use strict; my($mailTo) = '[email protected]'; my($mailServer) = 'mail.hgcbroadband.com'; my($mailFrom) = '[email protected]'; my($realName) = "chuikingman"; my($subject) = 'Test send_mail'; my($body) = "Test Line One.\nTest Line Two.\n"; $main::SIG{'INT'} = …
Hi, I have below code : [code]my($abc) = "fred<hello>3hello"; $abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/; if (defined($1)) { print "$1\n"; } else { print "not found\n"; } }[/code] What is the code doing ?? what function of the regular expression [code]$abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/;[/code] Please advice what it do ??
The End.