Re: isolating text in a string

2008-07-05 Thread Perl WANNABE
* John W. Krahn <[EMAIL PROTECTED]> [2008-06-27 11:28]: > Tim Bowden wrote: >> On Tue, 2008-06-24 at 19:37 -0700, John W. Krahn wrote: >>> >>> Perhaps: >>> >>> my ( $snippet ) = $string =~ /\w\["([^"]+)",/; >> >> $string =~ /\w\["([^"]+)",/; >> my $snippet = $1; >> >> does the trick. I can see If

Ram disk filling up - File::COPY

2007-06-07 Thread Perl WANNABE
Hi, I'm trying to copy a couple of DBM files from a disk to a RAM disk, one of the files is 500M the other quite small. This is on Slackware 10.1.0 using: This is perl, v5.8.6 built for i486-linux Whether I use File::Copy or I roll my own copy by reading and writing the file the filesystem fi

Re: regular expression question

2007-12-05 Thread Perl WANNABE
* Dr.Ruud <[EMAIL PROTECTED]> [2007-12-02 14:34]: > John W . Krahn schreef: > > Eric Krause: > > > $ perl -le' > > $_ = q[1xxx1111xx11x1]; > > print; > > s/(1+)/@{[($l=$1)=~y|1|1|]}/g; > > print; > > ' > > 1xxx1111xx11x1 > > 5xxx26xx2x1 > > :-) > > Aiaiaiai

Net::DNS

2007-01-26 Thread Perl WANNABE
Hi, I need to check through a database of just over 19000 domains to check from an authoritative server of the root domain which nameservers are used by these domains. so for host.com I want to get the nameserver of host.com from an SOA of com for example, l.gtld-servers.net I've Googled ab