[9264] in Perl-Users-Digest
Perl-Users Digest, Issue: 2859 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 12 17:08:42 1998
Date: Fri, 12 Jun 98 14:01:37 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 12 Jun 1998 Volume: 8 Number: 2859
Today's topics:
Re: question on a process mgmt (how to kill a child pro <vallon@bear.com>
Recursive help <cpavel@nortel.ca>
Regex Help! clay@crawlspace.com
Re: Regex Help! <bowlin@sirius.com>
Re: Regex Help! (Matt Knecht)
Re: Regex Help! <danboo@negia.net>
Re: Regex Help! (Patrick Timmins)
Re: removing dups from a file <wentzel@umr.edu>
Re: removing dups from files (Jonathan Stowe)
Re: Search Engine (Eric D. Friedman)
SOME ASSISTANCE IN TESTING A SCRIPT <steph@hotkey.net.au>
Re: SOME ASSISTANCE IN TESTING A SCRIPT <steph@hotkey.net.au>
Re: suggestions for improving efficiency ? (Tad McClellan)
Syntax error string when embedding in C++ <dwbrock@veribest.com>
Urgent ! Where to find perl5.004 for HP-UX <yiwu2@vt.edu>
Re: Urgent ! Where to find perl5.004 for HP-UX (Andy Lester)
Re: Vote today, read CFV for c.l.p.moderated, Post the (Greg Bacon)
Re: while (<>) vs. foreach (@ARGV) <vallon@bear.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 12 Jun 1998 19:24:16 GMT
From: Justin Vallon <vallon@bear.com>
Subject: Re: question on a process mgmt (how to kill a child process without creating zombie)
Message-Id: <x6eogvymnj3.fsf@pearl.bear.com>
(Blocked was the wrong word)
I have seen 'kill -9' delayed by the kernel in certain circumstances
(NFS). The signal will eventually be delivered. I have seen this
happen with lockf to an NFS server that is down or sick.
The issue may be that the NFS lockf request cannot be cancelled, for
example. Since the request cannot be cancelled, the process needs to keep
the state of the lock that should (eventually) be granted, in order to
release it. Since NFS is hard-mounted, lockf will never return "server
not responding". Maybe it's missing a EINTR return case.
You are probably correct about repeating a 'kill -9' being redundant.
Tom Christiansen <tchrist@mox.perl.com> writes:
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc, Justin Vallon <vallon@bear.com> writes:
> :(suppose NFS is down, kill -9 is blocked).
>
> I disbelieve, strenuously--as, I would imagine, does your kernel.
>
> :Also, if the kill -9 is not effective, re-kill after a timeout.
>
> Even if it *were* blocked, which I continue to doubt, as it
> is against the rules, blocking is not ignoring. And since
> signalling is an idempotent operation, repeating it won't help.
>
> --tom
> --
> X-Windows: More than enough rope.
> --Jamie Zawinski
--
-Justin
vallon@bear.com
------------------------------
Date: Fri, 12 Jun 1998 16:00:11 -0400
From: Cristian Pavel <cpavel@nortel.ca>
Subject: Recursive help
Message-Id: <358188CB.7368@nortel.ca>
Hi,
I have the the following program (recursive.pl):
#!/usr/bin/perl -w
use strict;
my $file_name = "recursive.1";
&PrintInterface($file_name );
print "Done\n";
exit;
sub PrintInterface
{
my ($buffer, $line, $type);
unless(open(INPUT, "< $_[0]"))
{
print "Cannot open $_[0] file: $!";
exit;
}
until(eof(INPUT))
{
$line = <INPUT>;
chomp ($line);
($type,$buffer) = split(/,/,$line);
#type: t - text line; f - file name
if ($type eq "f")
{
&PrintInterface($buffer);
}
else
{
print qq($buffer\n);
}
}
close INPUT;
return;
} # End PrintInterface
In the same directory I have the following 3 data files,
needed by recursive.pl:
- recursive.1, contains:
t,Test1 Start
f,recursive.2
t,Test1 End
- recursive.2, contains:
t,Test2 Start
f,recursive.3
t,Test2 End
- recursive.3, contains:
t,Test3 Start
t,... end recursive
t,Test3 End
When I run recursive.pl I obtain:
Test1 Start
Test2 Start
Test3 Start
... end recursive
Test3 End
Done
and I was expecting:
Test1 Start
Test2 Start
Test3 Start
... end recursive
Test3 End
Test2 End
Test1 End
Done
I would appreciate any help in solving this one.
Thanks,
Cristian Pavel
cpavel@nortel.ca
------------------------------
Date: Fri, 12 Jun 1998 18:49:01 GMT
From: clay@crawlspace.com
Subject: Regex Help!
Message-Id: <6lrt6u$5q1$1@nnrp1.dejanews.com>
Hello --
I could use some help with a regex that's kicking my inexperienced butt ...
Here's some sample input:
Database: mysql
+--------+
| Tables |
+--------+
| db |
| func |
| host |
| user |
+--------+
Database: dngr
+-------------+
| Tables |
+-------------+
| dngr_comics |
| dngr_images |
| dngr_links |
| dngr_rev |
| poll |
+-------------+
Database: hotdogs
+---------------------+
| Tables |
+---------------------+
| hotdogs_with_cheese |
| mustard_dogs |
| relish_dogs |
+---------------------+
I've got an array containing all these lines (fed in from a mysqlshow
command), and I need to get rid if all pipe characters, blank spaces, plus
and dash symbols and the word "Tables" ... so that I'm left with only the
table names.
Also, I don't want the "Database: <name>" line either. The amount of white
space varies depending on the output, as shown in the examples ..
Can anyone lend a hand on this? So far, I've got this going:
$tab =~ s/^....[ \-].*//g;
$tab =~ s/ [\|] //g;
$tab =~ s/[*\|]//g;
$tab =~ s/\s//g;
But, that's not working. : ) It's getting rid of most pipes, but leaving a
mess behind.
Thanks in advance!
_____________________________________________________________
Clay Loveless ... "Just another comic geek."
Crawlspace | http://www.crawlspace.com/ | 650-685-9264
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 12 Jun 1998 12:53:17 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: clay@crawlspace.com
Subject: Re: Regex Help!
Message-Id: <3581872D.3C6A63A7@sirius.com>
clay@crawlspace.com wrote:
>
> Hello --
>
> I could use some help with a regex that's kicking my inexperienced butt ...
> Here's some sample input:
>
> Database: mysql
> +--------+
> | Tables |
> +--------+
> | db |
> | func |
> | host |
> | user |
> +--------+
>
> Database: dngr
> +-------------+
> | Tables |
> +-------------+
> | dngr_comics |
> | dngr_images |
> | dngr_links |
> | dngr_rev |
> | poll |
> +-------------+
>
> Database: hotdogs
> +---------------------+
> | Tables |
> +---------------------+
> | hotdogs_with_cheese |
> | mustard_dogs |
> | relish_dogs |
> +---------------------+
>
> I've got an array containing all these lines (fed in from a mysqlshow
> command), and I need to get rid if all pipe characters, blank spaces, plus
> and dash symbols and the word "Tables" ... so that I'm left with only the
> table names.
>
> Also, I don't want the "Database: <name>" line either. The amount of white
> space varies depending on the output, as shown in the examples ..
>
> Can anyone lend a hand on this? So far, I've got this going:
>
> $tab =~ s/^....[ \-].*//g;
> $tab =~ s/ [\|] //g;
> $tab =~ s/[*\|]//g;
> $tab =~ s/\s//g;
>
> But, that's not working. : ) It's getting rid of most pipes, but leaving a
> mess behind.
Assuming @text contains the lines, this will fill @out with
what you want.
my @out;
foreach (@text) {
tr/[a-zA-Z0-9_://dcs;
!$_ or /^Database:/ or /^Tables$/ or push @out, $_;
}
HTH -- Jim Bowlin
------------------------------
Date: Fri, 12 Jun 1998 20:00:03 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: Regex Help!
Message-Id: <7Nfg1.114$34.1993196@news2.voicenet.com>
clay@crawlspace.com <clay@crawlspace.com> wrote:
>I've got an array containing all these lines (fed in from a mysqlshow
>command), and I need to get rid if all pipe characters, blank spaces, plus
>and dash symbols and the word "Tables" ... so that I'm left with only the
>table names.
This isn't a direct answer to your question, but a suggestion. Instead
of using mysql's shell features to dump information out to a file, why
not use perl to connect directly to the database? You could try
something like this:
use DBI;
$dsn = 'dbi:mysql:db_name';
$dbu = 'user_name';
$dbp = 'password';
$dbh = DBI->connect($dsn, $dbu, $dbp)
or die "couldn't connect to the db: $dbh->{errstr}";
# Get table names
$sth = $dbh->prepare('show tables') or die $dbh->{errstr};
$sth->execute or die $dbh->{errstr};
while ($table_name = $sth->fetchrow) {
print "Table name: $table_name\n";
}
$dbh->disconnect if $dbh;
I suggest you take a look at the MySql FAQ, specifically the Perl API
(Although, the rest of the FAQ is 'required reading' for doing any sort
of real work with it). Here's the mirror I use:
http://www.buoy.com/mysql/Manual_chapter/manual_Clients.html#Perl
--
Matt Knecht - <hex@voicenet.com>
"496620796F752063616E207265616420746869732C20796F7520686176652066
617220746F6F206D7563682074696D65206F6E20796F75722068616E6473210F"
------------------------------
Date: Fri, 12 Jun 1998 16:13:44 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: Regex Help!
Message-Id: <35818BF8.7A9395FB@negia.net>
clay@crawlspace.com wrote:
>
> Hello --
>
> I could use some help with a regex that's kicking my inexperienced butt ...
> Here's some sample input:
>
> Database: mysql
> +--------+
> | Tables |
> +--------+
> | db |
> | func |
> | host |
> | user |
> +--------+
[snip]
>
> I've got an array containing all these lines (fed in from a mysqlshow
> command), and I need to get rid if all pipe characters, blank spaces, plus
> and dash symbols and the word "Tables" ... so that I'm left with only the
> table names.
>
> Also, I don't want the "Database: <name>" line either. The amount of white
> space varies depending on the output, as shown in the examples ..
>
> Can anyone lend a hand on this? So far, I've got this going:
>
> $tab =~ s/^....[ \-].*//g;
> $tab =~ s/ [\|] //g;
> $tab =~ s/[*\|]//g;
> $tab =~ s/\s//g;
instead of discarding that which is undesirable, i tried grabbing
that which is desirable:
for (@lines) {
/^\| ([a-z_]+)/ && push @tables, $1;
}
cheers,
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: Fri, 12 Jun 1998 20:09:40 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: Regex Help!
Message-Id: <6ls1u4$e3k$1@nnrp1.dejanews.com>
In article <6lrt6u$5q1$1@nnrp1.dejanews.com>,
clay@crawlspace.com wrote:
>
> Hello --
>
> I could use some help with a regex that's kicking my inexperienced butt ...
> Here's some sample input:
>
> Database: mysql
> +--------+
> | Tables |
> +--------+
> | db |
> | func |
> | host |
> | user |
> +--------+
>
> Database: dngr
> +-------------+
> | Tables |
> +-------------+
> | dngr_comics |
> | dngr_images |
> | dngr_links |
> | dngr_rev |
> | poll |
> +-------------+
>
> Database: hotdogs
> +---------------------+
> | Tables |
> +---------------------+
> | hotdogs_with_cheese |
> | mustard_dogs |
> | relish_dogs |
> +---------------------+
>
> I've got an array containing all these lines (fed in from a mysqlshow
> command), and I need to get rid if all pipe characters, blank spaces, plus
> and dash symbols and the word "Tables" ... so that I'm left with only the
> table names.
>
> Also, I don't want the "Database: <name>" line either. The amount of white
> space varies depending on the output, as shown in the examples ..
>
> Can anyone lend a hand on this? So far, I've got this going:
>
> $tab =~ s/^....[ \-].*//g;
> $tab =~ s/ [\|] //g;
> $tab =~ s/[*\|]//g;
> $tab =~ s/\s//g;
>
> But, that's not working. : ) It's getting rid of most pipes, but leaving a
> mess behind.
>
> Thanks in advance!
>
> _____________________________________________________________
> Clay Loveless ... "Just another comic geek."
> Crawlspace | http://www.crawlspace.com/ | 650-685-9264
>
Are you just trying to print out the table names to a report? If so, how
about:
while (<>) {
unless (/^\|\s+Tables\s+\|/) {
if (/^\|\s+(\w+)\s+\|/) { print "$1\n"; }
}
}
This prints out the following with the sample input you provided:
db
func
host
user
dngr_comics
dngr_images
dngr_links
dngr_rev
poll
hotdogs_with_cheese
mustard_dogs
relish_dogs
Is this what you want? Hope that helps.
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 12 Jun 98 19:23:52 GMT
From: Michael Wentzel <wentzel@umr.edu>
Subject: Re: removing dups from a file
Message-Id: <35818048.0@news.cc.umr.edu>
Michael Stearns <michael@datahost.com> wrote:
: I have a text file with about 700 lines.
: I would like to remove duplicate lines from the file.
The quickest and sloppiest way I can think of is read the file into an
array of lines as follows...
open(FILEHANDLE,"file");
@LINES = <FILEHANDLE>;
$SIZE=@LINES #no. of lines in file
close(FILEHANDLE);
open(FILEHANDLE, ">file");
for ($i=0;$i<=$SIZE;$i++)
{ for ($j=$i+1;$j<=$SIZE;$j++)
{ if (@LINES[$i] ne @LINES[$j])
{ print FILEHANDLE @LINES[$i]; }
}
}
close(FILEHANDLE);
NOTE:N is the number of elements in the array
x is any INTEGER from 1 to N
This will scan the file from line x+1 to eof and compare each line to
line x. If the two lines are equal then nothing is done and the next
iterration is begun but if the lines are not equal line N is printed back
to the file. The big problem with this approach is the execution time.
The "Big O" of this routine is ((N-1)FACTORIAL - 1) or in other words it
would take N-1 compare for the first line in the array, then N-2 compares
for the second time through the loop, then N-3 compares... so on and so
forth down to 1 compare for the N-1th element of the array and none for
the Nth element of the array. I'm not sure what (699 Factorial -1) is
exactly off the top of my head but it's pretty large. But this is the
shortest, code-wise, routine I can think of on short notice. This is of
course better than N Factorial(the case of comparing every element of the
array to each line one at a time) because, for example, it is not
necessary when you are at Line 6 of the array to compare it to the data
in Lines 1 through 6 of the array because they have already been
compared. Sorry for rambling. Hope this helps.
---
Michael A. Wentzel
Software Designer
<A HREF="http://www.umr.edu/~oci">On-Call Instruction</A>
------------------------------
Date: Fri, 12 Jun 1998 20:32:32 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: removing dups from files
Message-Id: <35818e42.7973242@news.btinternet.com>
On Thu, 11 Jun 1998 22:18:26 -0700, Michael Stearns wrote :
>Hello:
>
>I have a text file with about 700 lines.
>
>I would like to remove duplicate lines from the file.
>
>Can someone recommend a good way to do this?
>
>Thanks,
>Michael Stearns
On Thu, 11 Jun 1998 22:29:33 -0700, Michael Stearns wrote :
>Hello:
>
>I have a text file with about 700 lines.
>
>I would like to remove duplicate lines from the file.
>
>Can someone recommend a good way to do this?
>
>Thanks,
>Michael Stearns
On Thu, 11 Jun 1998 22:49:39 -0700, Michael Stearns wrote :
>Hello:
>
>I have a text file with about 700 lines.
>
>I would like to remove duplicate lines from the file.
>
>Can someone recommend a good way to do this?
>
>Thanks,
>Michael Stearns
Is this some kind of this some kind of post-ironic thing and I when I
can I expect the other 697 ?
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 12 Jun 1998 18:35:11 GMT
From: efriedma@us.oracle.com (Eric D. Friedman)
Subject: Re: Search Engine
Message-Id: <6lrscv$int$1@inet16.us.oracle.com>
[courtesy copy sent by email]
In article <6l78so$dkt$6@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
< [courtesy cc of this posting sent to cited author via email]
<
<In comp.lang.perl.misc, sowmaster@juicepigs.com (Bob Trieger) writes:
<:I think you misunderstood. c.l.p.m is perl programmers discussing perl issues
<:and functions with other perl programmers. Not some kind of welfare for people
<:looking for program handouts.
<
<That's a nice thought, but considering the dearth of such gimme
<postings, I don't know why anyone would think that.
Tom,
I think you mean "superabundance" and not "dearth." No shortage of
people with their hands out on this newsgroup!
Eric
--
Eric D. Friedman
Software Developer Oracle Corporation
Porting Automation User Interfaces (650) 633-6040
------------------------------
Date: Sat, 13 Jun 1998 05:39:54 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: SOME ASSISTANCE IN TESTING A SCRIPT
Message-Id: <3581840A.4A19@hotkey.net.au>
Hello All,
I hope this post doesn't annoy too many people as I realise it probably
doesn't meat the "correct" criteria. If it does annoy you please just
ignore it || if it makes you feel better, go ahead and lay the boots in
:]
All I ask is this: If you have the time, please test this script for me:
http://202.138.0.34/yooralla/read.htm
It will be up for the next 30 mins or so, while I'm working on some
stuff.
Its a simple log reader script(well, 3 scripts all up) I've been working
on for the past week or so. I have a 'weird' problem with the lenght of
time it takes to return the results. I think it may because I'm on the
same network??(my WindBlows95 p133 :[..I'll get a unix box one day).
Thanks for your time,
Stephan Carydakis
newbie-Perl-hacker
------------------------------
Date: Sat, 13 Jun 1998 05:49:08 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: Re: SOME ASSISTANCE IN TESTING A SCRIPT
Message-Id: <35818634.2CB@hotkey.net.au>
oops....Please replace "meat" with "meet" in my previous post...
------------------------------
Date: Fri, 12 Jun 1998 08:56:08 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: suggestions for improving efficiency ?
Message-Id: <o1crl6.cr1.ln@localhost>
Mike Mckinney (mike@bga.com) wrote:
: I am very new to Perl, and programming in general, and this simple script
: is really the only thing I can currently think to use Perl for. I have made
: a good start on the "Learning Perl" book, but can't as yet afford the Camel
: book.
: I would very much appreciate any suggestions for improving the efficiency of
: the following program, and removing alot of obfuscation I'm sure.
: It's not totally done, as I have yet to add some code for generating a report,
: but it's workable in it's current form.
: ------------------------------------------------------------------------------
: #!/usr/bin/perl -w
: use diagnostics;
: use strict;
Three lines that EVERY "new" Perl programmer's program should have.
You are off to a good start.
: # A simple program to prompt for two numbers ( daily water usages ), and then
: # open one of two files for writing the date and the gallons used.
: my ( $softener, $cooling ) = ( "softener.usage", "cooling.usage" );
my ( $softener, $cooling ) = qw( softener.usage cooling.usage ); # idiomatic
: my $used = " gallons used\n";
: my @month = split( / /, `date` );
^^^^^
You can use arguments to date to get what you want without having
to manipulate it:
chomp($date = `date '+%a %b %d'`);
: my @date = join( " " ,@month[0,1,2] ) . ": ";
The previous comments were stylistic.
But here you have a real mistake that should be fixed.
See the Perl FAQ, part 4:
"What is the difference between $array[1] and @array[1]?"
join() returns a string ('perlfunc' says so).
You put the string into an array with only one element.
Why not just put it into a single scalar directly?
Are you planning to put some other elements in the @date array?
: while ( 1 ) {
: print "\nWhich file will you be using (Water or cooling ) :\n";
: chomp( my $answer = <STDIN> );
: if( $answer =~ /^w/i ) {
: print "Okay, using file $softener\n";
: open( SOFTENER, "+>>$softener")
^
^ why open it for read when your
program never reads from it?
open( SOFTENER, ">>$softener")
: || die "Can't open file $softener : $!";
: print SOFTENER @date, TOTAL(), $used,;
: close( SOFTENER ) || die "Can't close file $softener: $!";
: print "Okay, data successfully written to $softener\n";
: last;
: } elsif( $answer =~ /^c/i ) {
: print "Okay, using file $cooling\n";
: open( COOLING, "+>>$cooling" )
: || die "Can't open $cooling : $!";
: print COOLING @date, TOTAL(), $used,;
: close( COOLING ) || die "Can't close file $cooling : $!";
: print "Okay, data successfully written to $cooling\n";
: last;
: } elsif ( $answer =~ /^q|n/i ) {
: print "Closing program with no data entered or saved\n";
: last;
: } else {
: print "You must enter one of the two file names for calculations!\n"
: }
: }
: sub TOTAL {
: print "Enter the first number : ";
: chomp( my $first = <STDIN> ) ;
: print "Enter the second number : ";
: chomp( my $second = <STDIN> ) ;
: my $sum = $first + $second;
: return( $sum );
You don't need to put it into a variable first, you can just return
the sum directly:
return $first + $second;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 12 Jun 1998 14:10:22 -0500
From: "David Brock" <dwbrock@veribest.com>
Subject: Syntax error string when embedding in C++
Message-Id: <r8Q3sRjl9GA.175@pet.hiwaay.net>
I am attempting to embed Perl in a graphical C++ program. If there is a
syntax error in the script when I call perl_parse() I would like to display
the text of the syntax error to the user. Is there any way to get at this
text from C++, or will I somehow have to redirect the error to a file and
read it from there?
David
------------------------------
Date: Fri, 12 Jun 1998 15:53:49 -0700
From: Yingxiang Wu <yiwu2@vt.edu>
Subject: Urgent ! Where to find perl5.004 for HP-UX
Message-Id: <3581B17D.41C6@vt.edu>
It's urgent!
I want to upgrade the perl in a HP_UX workstation. Is some where I can
find the newest version of perl.
Thank you for your help.
------------------------------
Date: 12 Jun 1998 20:27:06 GMT
From: petdance@maxx.mc.net (Andy Lester)
Subject: Re: Urgent ! Where to find perl5.004 for HP-UX
Message-Id: <6ls2uq$1j3$2@usenet11.supernews.com>
: It's urgent!
I think it's only common courtesy to explain to those from whom you're
demanding such immediate gratification the circumstances surrounding your
urgent need.
Didja knock over a server? Did a keg explode in the machine room? Let us
know!
xoxo,
Andy
--
--
Andy Lester: <andy@petdance.com> http://tezcat.com/~andy/
Chicago Shows List: <shows@ChicagoMusic.com> http://ChicagoMusic.com/
------------------------------
Date: 12 Jun 1998 19:12:14 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Vote today, read CFV for c.l.p.moderated, Post the CFV here today,
Message-Id: <6lruie$q7g$1@info.uah.edu>
In article <3580805F.7BA1@erols.com>,
Ngouah A Nguiamba <ngouah@erols.com> writes:
: I didn't mean to cause trouble. I have plenty of time to read everything.
I didn't mean to accuse you of causing trouble. However, it's very
conceivable that someone with the best of intentions might repost the
CFV and cause a big stink in news.groups.
I was just spraying a little news.groups Right Guard. :-)
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Fri, 12 Jun 1998 19:28:04 GMT
From: Justin Vallon <vallon@bear.com>
Subject: Re: while (<>) vs. foreach (@ARGV)
Message-Id: <x6elnr2mncq.fsf@pearl.bear.com>
Andrew S Gianni <agianni@acsu.buffalo.edu> writes:
> What's the best way to read a list from the command line? The camel book
> seems to suggest that you should use something like:
>
> while(<>){
> ...
> do stuff with $ARGV
> ...
> }
The body of this loop is executed for each line of every file you
provide on the command line (or STDIN if you don't give args).
>
> but when I use that kind of structure, it takes way longer to run than
> if I use something like:
>
> foreach (@ARGV){
> ...
> do stuff with $_
> ...
> }
The body of this loop is executed once for each argument.
--
-Justin
vallon@bear.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2859
**************************************
