From dbii at mudpuddle.com Mon Oct 7 10:36:55 2002 From: dbii at mudpuddle.com (David Bluestein II) Date: Mon Aug 2 21:23:14 2004 Subject: APM: next weeks meeting Message-ID: Getting time for the monthly meeting. I think someone was going to talk on PHP and do a comparison w/Perl, but I don't remember if it was this month or next. Anyone know, Larry? Then I think we were going to do something with images (round 2) in November. David ---------- David H. Bluestein II President & Lead Developer dbii@mudpuddle.com ii, inc. http://www.interaction.net - Specializing in Designing Interactive Websites - - and Searchable Internet Databases - From lhunter at lhunter.com Tue Oct 8 05:37:06 2002 From: lhunter at lhunter.com (Larry Hunter) Date: Mon Aug 2 21:23:14 2004 Subject: APM: next weeks meeting In-Reply-To: Message-ID: <4.2.2.20021008053338.00b1ca30@lhunter.com> That's about what I remember too: someone was working with PHP but I don't remember who. At 10:36 AM 10/7/02 -0500, David Bluestein II wrote: >Getting time for the monthly meeting. > >I think someone was going to talk on PHP and do a comparison w/Perl, but I >don't remember if it was this month or next. Anyone know, Larry? Then I >think we were going to do something with images (round 2) in November. > >David > >---------- >David H. Bluestein II President & Lead Developer >dbii@mudpuddle.com ii, inc. > >http://www.interaction.net >- Specializing in Designing Interactive Websites - >- and Searchable Internet Databases - > > > > > >_______________________________________________ >Austin mailing list >Austin@mail.pm.org >http://mail.pm.org/mailman/listinfo/austin ------------------------------------------------------------------------ Larry Hunter lhunter@lhunter.com http://lhunter.com/ From dbii at mudpuddle.com Tue Oct 8 09:57:12 2002 From: dbii at mudpuddle.com (David Bluestein II) Date: Mon Aug 2 21:23:14 2004 Subject: Steve Bauer? (was Re: APM: next weeks meeting) Message-ID: From wwalker at bybent.com Tue Oct 8 23:05:05 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:14 2004 Subject: APM: testing, ignore Message-ID: <20021009040504.GA750@bybent.com> testing, ignore please. -- Wayne Walker From majcher at majcher.com Wed Oct 9 02:54:19 2002 From: majcher at majcher.com (Marc Majcher) Date: Mon Aug 2 21:23:14 2004 Subject: APM: next meeting? In-Reply-To: <20021009040504.GA750@bybent.com> (message from Wayne Walker on Tue, 8 Oct 2002 23:05:05 -0500) References: <20021009040504.GA750@bybent.com> Message-ID: <200210090754.g997sJ729813@majcher.com> When will the next meeting be taking place? The website still says June, and I'm guessing that's not right. -- DVS "He's not an idiot, he's a genius! And genius is as far as you can get from idiot, before reaching madness." From wwalker at bybent.com Thu Oct 10 19:29:33 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:14 2004 Subject: APM: Re: Regular Expression Guru's anyone? In-Reply-To: References: Message-ID: <20021011002933.GG7451@bybent.com> This will work (at least for my test data) guru.pl: #!/usr/bin/perl $/ = undef; # unset record separator to read in entire file at once use strict; # the only way to write perl :) my ($data, $newdata, $text, $tag); $data = ; # Read in all the lines following __DATA__ # Break the string into 3 pieces: # text before a tag, tag, everything following the tag # leading non < characters, < all non >chars up to next >, everything else. while ( $data =~ /^([^<]*)(<[^>]*>)(.*)$/s) { # Lazy man's way to grab 3 vars at a time :) ($text, $tag, $data) = ($1, $2, $3); # Fix the text $text =~ s/bird/Hawk/gs; # Globally change, treat as a single line # Add the text and the tag to the $newdata string $newdata .= $text . $tag; } # take whatever is left when there are no more tags and fix it and # append it to $newdata $data =~ s/bird/Hawk/gs; $newdata .= $text; print $newdata; __DATA__ this is some text about a bird, a bird is cool, here is a picture of a bird this is some text about a bird, a bird is cool, here is a picture of a bird this is some text about a bird, a bird is cool, here is a picture of a bird this is some text about a bird, a bird is cool, here is a picture of a bird this is some text about a bird, a bird is cool, here is a picture of a bird On Thu, Oct 10, 2002 at 03:49:13PM -0500, David Lyons wrote: > Here is what I am trying to do, I need to match text that is in an html > document but specifically not inside an HTML tag, ie: > > matching the word bird: > > this is some text about a bird, a bird is cool, here is a picture of a > bird > > would hit on the two instances of "bird" but not on the one in the img > tag (or any other HTML tag for that matter). > > Thanks, > D > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: linux-unsubscribe@ctlug.org > For additional commands, e-mail: linux-help@ctlug.org > --------------------------------------------------------------------- > Visit our website at . -- Wayne Walker From mike at stok.co.uk Thu Oct 10 20:04:40 2002 From: mike at stok.co.uk (Mike Stok) Date: Mon Aug 2 21:23:14 2004 Subject: APM: Re: Regular Expression Guru's anyone? In-Reply-To: <20021011002933.GG7451@bybent.com> Message-ID: On Thu, 10 Oct 2002, Wayne Walker wrote: > This will work (at least for my test data) > > > guru.pl: > > #!/usr/bin/perl > > $/ = undef; # unset record separator to read in entire file at once > > use strict; # the only way to write perl :) > > my ($data, $newdata, $text, $tag); > > $data = ; # Read in all the lines following __DATA__ > > # Break the string into 3 pieces: > # text before a tag, tag, everything following the tag > # leading non < characters, < all non >chars up to next >, everything else. > while ( $data =~ /^([^<]*)(<[^>]*>)(.*)$/s) > { > # Lazy man's way to grab 3 vars at a time :) > ($text, $tag, $data) = ($1, $2, $3); > # Fix the text > $text =~ s/bird/Hawk/gs; # Globally change, treat as a single line > # Add the text and the tag to the $newdata string > $newdata .= $text . $tag; > } > # take whatever is left when there are no more tags and fix it and > # append it to $newdata > > $data =~ s/bird/Hawk/gs; > $newdata .= $text; > > print $newdata; Or if you're being really lazy use HTML::TokeParser; my $parser = HTML::TokeParser->new(*DATA); while ($token = $parser->get_token) { next unless $token->[0] eq 'T'; # Text? while ($token->[1] =~ /bird/g) { print "found $`>>>$&<<<$'\n"; } } __DATA__ this is some text about a bird, a bird is cool, here is a picture of a bird [etc...] As long as you don't want to find stuff like bird, in which case you need to concatenate the text fragments and deal with them all at the end. Mike > On Thu, Oct 10, 2002 at 03:49:13PM -0500, David Lyons wrote: > > Here is what I am trying to do, I need to match text that is in an html > > document but specifically not inside an HTML tag, ie: > > > > matching the word bird: > > > > this is some text about a bird, a bird is cool, here is a picture of a > > bird > > > > would hit on the two instances of "bird" but not on the one in the img > > tag (or any other HTML tag for that matter). > > > > Thanks, > > D -- mike@stok.co.uk | The "`Stok' disclaimers" apply. http://www.stok.co.uk/~mike/ | GPG PGP Key 1024D/059913DA mike@exegenix.com | Fingerprint 0570 71CD 6790 7C28 3D60 http://www.exegenix.com/ | 75D2 9EC4 C1C0 0599 13DA From dbii at mudpuddle.com Sun Oct 13 18:01:28 2002 From: dbii at mudpuddle.com (David Bluestein II) Date: Mon Aug 2 21:23:14 2004 Subject: APM: Wednesday's Meeting Message-ID: Did we settle on a topic for Wednesday this week? Is Steven going to do PHP overview? David ---------- David H. Bluestein II President & Lead Developer dbii@mudpuddle.com ii, inc. http://www.interaction.net - Specializing in Designing Interactive Websites - - and Searchable Internet Databases - From wwalker at bybent.com Sun Oct 13 21:25:32 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:14 2004 Subject: APM: Wednesday's Meeting In-Reply-To: References: Message-ID: <20021014022532.GD1675@bybent.com> Has anyone heard from Steven lately? I'm willing to give a talk on anything I can whip up in 3 days. If Steven doesn't show, what would you like to hear about? ... On Sun, Oct 13, 2002 at 06:01:28PM -0500, David Bluestein II wrote: > Did we settle on a topic for Wednesday this week? Is Steven going to do > PHP overview? > > David > > ---------- > David H. Bluestein II President & Lead Developer > dbii@mudpuddle.com ii, inc. > > http://www.interaction.net > - Specializing in Designing Interactive Websites - > - and Searchable Internet Databases - > > > > > > _______________________________________________ > Austin mailing list > Austin@mail.pm.org > http://mail.pm.org/mailman/listinfo/austin -- -- Wayne Walker www.broadq.com :) Bringing digital video and audio to the living room From dbii at mudpuddle.com Sun Oct 13 22:18:54 2002 From: dbii at mudpuddle.com (David Bluestein II) Date: Mon Aug 2 21:23:14 2004 Subject: Steve Bauer? (was Re: APM: next weeks meeting) Message-ID: I got the following note from Larry, but guess he didn't copy the list. I think we should get together to plan out the next several months of talks and we can have a round table discussion of whatever people want. If Wayne is willing, I've been wanting to hear him talk about his Perl test cases for the code he's writing, so maybe he could give a 15-30 minute short discussion on that? We're working on some testing stuff here, so we may be able to do a follow up talk on some additional items in that area in November. David >I talked to Steve and he is currently with paying contract and can't >prepare a formal presentation until next month. > >I think the appropriate thing now is to get everybody together for a >planning session and see who is still around and who is doing what. Steve >will be here for that. ---------- David H. Bluestein II President & Lead Developer dbii@mudpuddle.com ii, inc. http://www.interaction.net - Specializing in Designing Interactive Websites - - and Searchable Internet Databases - From lhunter at lhunter.com Sun Oct 13 23:43:58 2002 From: lhunter at lhunter.com (Larry Hunter) Date: Mon Aug 2 21:23:14 2004 Subject: APM: October meeting (and web page update) Message-ID: <4.2.2.20021013232750.00a9d400@lhunter.com> The October meeting Wednesday, October 16 will be a planning session and round table to set a schedule for the next year. If you're doing something neat in Perl or know somebody who is, this is a good place to get some local coverage. The austin.pm.org web page is now updated to October 2002! ------------------------------------------------------------------------ Larry Hunter lhunter@lhunter.com http://lhunter.com/ From Goldilox at teachnet.edb.utexas.edu Sat Oct 19 18:04:11 2002 From: Goldilox at teachnet.edb.utexas.edu (Goldilox) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question Message-ID: How come I can go $x=shift @array; and $x is equal to the first array element, but shift @array; doesn't put the first element to $_? I tried printing $_: #!/usr/bin/perl -w use CGI; $cg=new CGI; print $cg->header; @directories = qw(01Jan 02Feb 03Mar 04Apr 05May 06Jun 07Jul 08Aug 09Sep 10Oct 11Nov 12Dec); print "Here ",@directories,"
"; shift @directories; print "Here is \$_: $_"; print $_; and it is empty. Any hints? Rhett From mike at stok.co.uk Sat Oct 19 18:53:05 2002 From: mike at stok.co.uk (Mike Stok) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question In-Reply-To: Message-ID: On Sat, 19 Oct 2002, Goldilox wrote: > How come I can go > > $x=shift @array; > > and $x is equal to the first array element, but > > shift @array; > > doesn't put the first element to $_? Because shift doesn't do that - the only defaults shift has are the arrays it operates on - @_ or @ARGV. > I tried printing $_: > > #!/usr/bin/perl -w > use CGI; > $cg=new CGI; > print $cg->header; > @directories = qw(01Jan 02Feb 03Mar 04Apr 05May 06Jun 07Jul 08Aug 09Sep 10Oct > 11Nov 12Dec); > print "Here ",@directories,"
"; > shift @directories; > print "Here is \$_: $_"; > print $_; > > and it is empty. Any hints? Apart from $_ = shift @directories; Hope this helps, Mike -- mike@stok.co.uk | The "`Stok' disclaimers" apply. http://www.stok.co.uk/~mike/ | GPG PGP Key 1024D/059913DA mike@exegenix.com | Fingerprint 0570 71CD 6790 7C28 3D60 http://www.exegenix.com/ | 75D2 9EC4 C1C0 0599 13DA From msouth at fulcrum.org Sat Oct 19 20:18:45 2002 From: msouth at fulcrum.org (Mike South) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question Message-ID: <200210200118.VAA05361@scan.shodor.org> >From austin-admin@mail.pm.org Sat Oct 19 19:25:41 2002 > >How come I can go > >$x=shift @array; > >and $x is equal to the first array element, but > >shift @array; > >doesn't put the first element to $_? > That's a good question. You already got the "Stok" answer, "because it doesn't", which is as good an answer as any. However, I just wanted to chime in because I remember being in the same situation as you, many years ago, when I started getting used to how Perl would just do what I expected even when I didn't tell it to, and then I started running into places, just like the example above, where I thought something like "Well, if I do a foreach (@foo) and don't give it a variable name it goes into $_. So it would make sense that if I don't tell shift() where to put something it will go to the same place." It was a bit frustrating--right when I thought I knew what perl was thinking I was thinking, I was wrong on quite a few occasions. My advice to you is to become familiar with perldoc. You are now at the point where you will be wondering things like this a lot. So, in this case, you could do a perldoc -f shift and you would get a nice little description of what shift does, and what sorts of magic are associated with it. (The -f is for "function".) Now, you are also probably curious about where, specifically, the special varialbe $_ is used even though you don't specify it. For that you need: perldoc perlvar And search for $_ in that. (you may need to backwhach the "$" in searching that, depending on your system--that is, search for \$_). Here is part of the perlvar page about magical use of $_: Here are the places where Perl will assume $_ even if you don't use it: · Various unary functions, including functions like ord() and int(), as well as the all file tests ("-f", "-d") except for "-t", which defaults to STDIN. · Various list functions like print() and unlink(). · The pattern matching operations "m//", "s///", and "tr///" when used without an "=~" operator. · The default iterator variable in a "foreach" loop if no other variable is supplied. · The implicit iterator variable in the grep() and map() functions. · The default place to put an input record when a "" operation's result is tested by itself as the sole criterion of a "while" test. Outside a "while" test, this will not happen. Note, however, that this has not told you all the places, because it says "various X functions like Y and Z". So if you are wondering about whether a particular function uses it, just do a quick perldoc -f functionname to check. (For example, I didn't know until I just read it in perldoc -f shift that shift will act on the @ARGV array if you are in file scope and you don't give it an argument. Cool.) mike (ps if anything I said here didn't make sense feel free to ask follow-up questions) From wwalker at bybent.com Sat Oct 19 21:07:16 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question In-Reply-To: <200210200118.VAA05361@scan.shodor.org> References: <200210200118.VAA05361@scan.shodor.org> Message-ID: <20021020020716.GA3138@bybent.com> On Sat, Oct 19, 2002 at 09:18:45PM -0400, Mike South wrote: > My advice to you is to become familiar with perldoc. You are > now at the point where you will be wondering things like this > a lot. So, in this case, you could do a > > perldoc -f shift Also, the Perl Pcket Reference is well worth the price :) -- Wayne Walker www.broadq.com :) Bringing digital video and audio to the living room From Goldilox at teachnet.edb.utexas.edu Sat Oct 19 23:04:32 2002 From: Goldilox at teachnet.edb.utexas.edu (Goldilox) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question In-Reply-To: References: Message-ID: Once again I appreciate the insight this group provides! Thanks Rhett From Goldilox at teachnet.edb.utexas.edu Sat Oct 19 23:52:48 2002 From: Goldilox at teachnet.edb.utexas.edu (Goldilox) Date: Mon Aug 2 21:23:14 2004 Subject: APM: shift question In-Reply-To: References: Message-ID: Actually, let me follow up with another question. Please forgive me if I'm sounding too programatically naive. I had actually read the documentation that shift defaults to @ARGV, so I had tried seeing what was in the @ARGV array or even in $ARGV[0] and I still came up with nothing. So I thought I was totally misunderstanding things. Then I found references on the web that said the @ARG array and $_ were the same thing, and so since $ARGV[0] didn't show me an output and $ARG[0] didn't show me an output, and it had specifically stated that really @ARGV is only where shift sends elements inside a subroutine, I thought it must be $_ that gets the element shaved off the array by shift outside a subroutine. But now looking at perldoc perlvar, there is no reference to @ARG, and I also now have tried $_[0] and @_ trying to find this missing array element. Now, I'm not trying to defend anything erroneous I might have read on the web, but I'm still confused by the default variable when I place the shift command outside of a subroutine. In my script, how would I print out the element shaved off by shift @directories ? (I hope I'm not beating a dead horse, I'm just still confused) so instead of print "Here is \$_: $_"; what should replace $_? #!/usr/bin/perl -w use CGI; $cg=new CGI; print $cg->header; @directories = qw(01Jan 02Feb 03Mar 04Apr 05May 06Jun 07Jul 08Aug 09Sep 10Oct 11Nov 12Dec); print "Here ",@directories,"
"; shift @directories; print "Here is \$_: $_"; print $_; From hrunting at texas.net Sun Oct 20 00:15:18 2002 From: hrunting at texas.net (Philip Molter) Date: Mon Aug 2 21:23:15 2004 Subject: APM: shift question In-Reply-To: Message-ID: On Sat, 19 Oct 2002, Goldilox wrote: : In my script, how would I print out the element shaved off by : : shift @directories print shift @directories; If you need to save that variable for some reason (like, to use it in multiple print statements), do the Right Thing(tm) and stick it in a lexical: my $var = shift @directories; print $var, "\n"; print $var, " again\n"; It's bad form (not illegal, just bad) to use $_ for anything more than the most trivial. Since you're having problems with it, I'd just drop it altogether. No one will ever think less of you for not using $_. From Tom.Bakken at tx.usda.gov Thu Oct 24 14:35:15 2002 From: Tom.Bakken at tx.usda.gov (Tom.Bakken) Date: Mon Aug 2 21:23:15 2004 Subject: APM: Too late for -T option Message-ID: <3DB84B73.2CC1E35E@tx.usda.gov> I'm running ActivePerl on a Windows 2000 server. Keep getting the subject message when I try to run with taint checking. What am I missing? -- Tom Bakken From wwalker at bybent.com Thu Oct 24 19:29:21 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:15 2004 Subject: APM: Too late for -T option In-Reply-To: <3DB84B73.2CC1E35E@tx.usda.gov> References: <3DB84B73.2CC1E35E@tx.usda.gov> Message-ID: <20021025002921.GG16787@bybent.com> How are you turning on Taint checking? Command line, #! line, ... On Thu, Oct 24, 2002 at 02:35:15PM -0500, Tom.Bakken wrote: > I'm running ActivePerl on a Windows 2000 server. Keep getting the > subject message when I try to run with taint checking. > > What am I missing? > > -- > Tom Bakken > _______________________________________________ > Austin mailing list > Austin@mail.pm.org > http://mail.pm.org/mailman/listinfo/austin -- Wayne Walker www.broadq.com :) Bringing digital video and audio to the living room From mick at lowdrag.org Thu Oct 24 20:29:38 2002 From: mick at lowdrag.org (Mick) Date: Mon Aug 2 21:23:15 2004 Subject: Fwd: Re: APM: Too late for -T option Message-ID: <20021025012938.GE13409@lowdrag.org> * Wayne Walker [021024 19:52]: > How are you turning on Taint checking? Command line, #! line, ... > > On Thu, Oct 24, 2002 at 02:35:15PM -0500, Tom.Bakken wrote: > > I'm running ActivePerl on a Windows 2000 server. Keep getting the > > subject message when I try to run with taint checking. > > From mick at lowdrag.org Thu Oct 24 20:35:31 2002 From: mick at lowdrag.org (Mick) Date: Mon Aug 2 21:23:15 2004 Subject: Fwd: Fwd: Re: APM: Too late for -T option Message-ID: <20021025013531.GF13409@lowdrag.org> * Wayne Walker [021024 19:52]: > How are you turning on Taint checking? Command line, #! line, ... > > On Thu, Oct 24, 2002 at 02:35:15PM -0500, Tom.Bakken wrote: > > I'm running ActivePerl on a Windows 2000 server. Keep getting the > > subject message when I try to run with taint checking. > > From Tom.Bakken at tx.usda.gov Fri Oct 25 16:59:13 2002 From: Tom.Bakken at tx.usda.gov (Tom.Bakken) Date: Mon Aug 2 21:23:15 2004 Subject: APM: Too late for -T option References: <3DB84B73.2CC1E35E@tx.usda.gov> <20021025002921.GG16787@bybent.com> Message-ID: <3DB9BEB1.BC140C94@tx.usda.gov> I'm invoking from the #! line. And I've tried putting the -T argument first. That doesn't help. I remember reading something about it recently but can't lay my hands on it... Wayne Walker wrote: > > How are you turning on Taint checking? Command line, #! line, ... > > On Thu, Oct 24, 2002 at 02:35:15PM -0500, Tom.Bakken wrote: > > I'm running ActivePerl on a Windows 2000 server. Keep getting the > > subject message when I try to run with taint checking. > > > > What am I missing? > > > > -- > > Tom Bakken > > _______________________________________________ > > Austin mailing list > > Austin@mail.pm.org > > http://mail.pm.org/mailman/listinfo/austin > > -- > > Wayne Walker > > www.broadq.com :) Bringing digital video and audio to the living room -- Tom Bakken From mdknauss at yahoo.com Tue Oct 29 09:08:53 2002 From: mdknauss at yahoo.com (Martie Knauss) Date: Mon Aug 2 21:23:15 2004 Subject: APM: checking stale nfs mounts with PERL Message-ID: <20021029150853.52017.qmail@web40809.mail.yahoo.com> I'm modifying a script that copies files to a mounted file system. For some reason, the file system mount point goes stale and prevents the script from successfully copying the file out. I've added some error checking in the code to make sure the file system is there and write-able but I'd like to just re-mount the file system if it's gone stale and go ahead and copy the file out. Any suggestions? __________________________________________________ Do you Yahoo!? HotJobs - Search new jobs daily now http://hotjobs.yahoo.com/ From wwalker at bybent.com Tue Oct 29 10:22:42 2002 From: wwalker at bybent.com (Wayne Walker) Date: Mon Aug 2 21:23:15 2004 Subject: APM: checking stale nfs mounts with PERL In-Reply-To: <20021029150853.52017.qmail@web40809.mail.yahoo.com>; from mdknauss@yahoo.com on Tue, Oct 29, 2002 at 07:08:53AM -0800 References: <20021029150853.52017.qmail@web40809.mail.yahoo.com> Message-ID: <20021029102242.D1886@bybent.com> On Tue, Oct 29, 2002 at 07:08:53AM -0800, Martie Knauss wrote: > I'm modifying a script that copies files to a mounted > file system. For some reason, the file system mount > point goes stale and prevents the script from > successfully copying the file out. I've added some > error checking in the code to make sure the file > system is there and write-able but I'd like to just > re-mount the file system if it's gone stale and go > ahead and copy the file out. Any suggestions? Just always run: mount -o remount /mnt/foo Can't remember if that will really work for stale NFSs or not. Don't have any NFS where I am right now. > > __________________________________________________ > Do you Yahoo!? > HotJobs - Search new jobs daily now > http://hotjobs.yahoo.com/ > _______________________________________________ > Austin mailing list > Austin@mail.pm.org > http://mail.pm.org/mailman/listinfo/austin -- Wayne Walker www.broadq.com :) Bringing digital video and audio to the living room And the "Wizard of Bill" says "Please ignore the crash behind the Windows." From lhunter at lhunter.com Tue Oct 29 20:14:44 2002 From: lhunter at lhunter.com (Larry Hunter) Date: Mon Aug 2 21:23:15 2004 Subject: APM: checking stale nfs mounts with PERL In-Reply-To: <20021029150853.52017.qmail@web40809.mail.yahoo.com> Message-ID: <4.2.2.20021029200847.00aaf2a0@lhunter.com> This works in another language but should work in Perl as well: Generate a sequence of partial paths, adding one directory each time, as in ('/mnt1/', '/mnt1/dir1/', '/mnt1/dir1/dir2/, ...) and for each partial path in the sequence, test whether it is a readable directory. At 07:08 AM 10/29/02 -0800, Martie Knauss wrote: >I'm modifying a script that copies files to a mounted >file system. For some reason, the file system mount >point goes stale and prevents the script from >successfully copying the file out. I've added some >error checking in the code to make sure the file >system is there and write-able but I'd like to just >re-mount the file system if it's gone stale and go >ahead and copy the file out. Any suggestions? > >__________________________________________________ >Do you Yahoo!? >HotJobs - Search new jobs daily now >http://hotjobs.yahoo.com/ >_______________________________________________ >Austin mailing list >Austin@mail.pm.org >http://mail.pm.org/mailman/listinfo/austin ------------------------------------------------------------------------ Larry Hunter lhunter@lhunter.com http://lhunter.com/