Look for tutorials on Perl/Tk
Google Perl/Tk
Here's an old one that is still good -> http://www.perl.com/pub/1999/10/perltk/
HTH
From: newbie01 perl
To: beginners
Sent: Thursday, 20 December 2012, 18:42
Subject: Tutorial for a menu driven perl script
On Thu, Dec 20, 2012 at 11:39 PM, Feng He wrote:
> Hello,
>
> I have a string like: dns\.support.dnsbed.com
> I want to translate it to a regular email address: dns.supp...@dnsbed.com
>
>
> if ($string =~ /^(.*?)(? my $user = $1;
> my $tld = $2;
> return $user . '@'. $t
Hi,
On Fri, Dec 21, 2012 at 8:39 AM, Feng He wrote:
> Hello,
>
> I have a string like: dns\.support.dnsbed.com
> I want to translate it to a regular email address: dns.supp...@dnsbed.com
>
>
> if ($string =~ /^(.*?)(? my $user = $1;
> my $tld = $2;
> return $user . '@
Greetings,
This uses named captures introduced in Perl version 5.10. So you need to have
Perl 5.10+
use 5.010;
while () {
if(/
(?[\w.]+) #Match foo.bar | jack.foo.bar |
jack.rose.foo.bar
(?@) #Match @
(?\w+) #Match domain
On Fri, 21 Dec 2012 13:42:18 +1300
newbie01 perl wrote:
> Hi,
>
> Does anyone know of any great source/link for tutorials on menu
> driven Perl?
"Menu driven"?
You may need to be more specific.
Perhaps you mean terminal-based, using e.g. curses-based stuff?
Perhaps one of the following might
Greetings,
IMHO, Here is one way to do it. Again there could be better ways to solve this
one.
while () {
if(/
([\w.]+) #Match foo.bar | jack.foo.bar | jack.rose.foo.bar
(@) #Match @
(\w+) #Match domain
\. #Match dot
(\w+) #Matc
Greetings,
Here is one way of doing it. I admit there will be better solutions to this.
while () {
if(/
(\w+) #Match dns
\. #Match dot
(\w+) #Match support
(@) #Match @
(\w+) #Match dnsbed
\. #Match dot
(\w+) #Match com
$string='dns\.support.dnsbed.com';
print "$string\n";
if ($string =~ /^(.*?)\\\.(.*?)(?mailto:fen...@nsbeta.info]
Sent: Friday, December 21, 2012 3:39 PM
To: beginners@perl.org
Subject: Help with a regex
Hello,
I have a string like: dns\.support.dnsbed.com I want to translate it to a
regular
