[25873] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 8103 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 22 21:05:17 2005

Date: Sun, 22 May 2005 18:05:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Sun, 22 May 2005     Volume: 10 Number: 8103

Today's topics:
    Re: a simple =~ // question <geoff.cox@notquitecorrectfreeuk.com>
        Fw: evidence proving john bokma al jazeera programmer? <spam.me.not@dot.com>
    Re: How do I pattern match variables in Perl? <wyzelli@yahoo.com>
        HTML::TableExtract punctuation parsing <maqo@yahoo.com>
        ISO "advanced" info on benchmarking in Perl <socyl@987jk.com.invalid>
        regex - cannot find the "\"  ? <geoff.cox@notquitecorrectfreeuk.com>
    Re: regex - cannot find the "\"  ? <geoff.cox@notquitecorrectfreeuk.com>
    Re: regex - cannot find the "\"  ? <nobull@mail.com>
    Re: regex - cannot find the "\"  ? <geoff.cox@notquitecorrectfreeuk.com>
    Re: regex - cannot find the "\"  ? <tadmc@augustmail.com>
    Re: regex - cannot find the "\"  ? <geoff.cox@notquitecorrectfreeuk.com>
    Re: regex - cannot find the "\"  ? <someone@example.com>
    Re: regex - cannot find the "\"  ? <geoff.cox@notquitecorrectfreeuk.com>
    Re: regex - cannot find the "\"  ? <pilkowsk@informatik.uni-marburg.de>
    Re: regex - cannot find the "\"  ? <1usa@llenroc.ude.invalid>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Sun, 22 May 2005 18:38:19 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: Re: a simple =~ // question
Message-Id: <j6k191hht5d4r9fleal7skam3ilcvclilh@4ax.com>

On Sun, 22 May 2005 08:14:33 -0500, Tad McClellan
<tadmc@augustmail.com> wrote:

>Geoff Cox <geoff.cox@notquitecorrectfreeuk.com> wrote:
>
>> If I have
>> 
>><title>
>> fred - jane
>></title>
>> 
>> how can I find the fred - jane part?
>
>
>   my $position = index $_, 'fred - jane';
>   print "the 'fred - jane' part is at char number $position\n";

Thanks to both - I also remembered using

if ( $line =~ /^<title>$/ ) {

my ($next) = <IN>;

and $next gets the fred - jane text

Cheers

Geoff




------------------------------

Date: 22 May 2005 21:33:15 -0000
From: William Baker <spam.me.not@dot.com>
Subject: Fw: evidence proving john bokma al jazeera programmer?
Message-Id: <BV1TK5EB38494.6897569444@anonymous.poster>





   please add forward to alt.security.terrorism if information

    p.p.s.  "john bokma" shows long list in message boards, just in last 
month.  lots of information to netherlands where muslem militants 
are.  could some be coded cryption to aljazeera, so messages are in
secret for the terror network?
   nl.comp.hardware
    nl.media.tv
   nl.wetenschap
   nl.huishouden
   nl.politiek
  nl.religie
  alt.nl.schandpaal
   nl.comp.os.linux.installatie
  be.politics
   nl.gezondheid.psychiatrie
  nl.internet.www.ontwerp
   nl.gezondheid.medisch
   nl.internet.misbruik
   nl.internet.algemeen
  comp.lang.python
  nl.comp.programmeren
   comp.lang.perl.modules
  comp.lang.perl.misc
  sci.electronics.basics
   nl.internet.www.server-side
  alt.internet.search-engines
  alt.www.webmaster
   comp.lang.perl.misc
  nl.markt.freelance
    nl.comp.hacken
   microsoft.public.msn.messenger
   be.comp.programming
  be.comp.internet.design
   nl.comp.os.linux.programmeren

    what if dutch messages are most coded and  hardest to break?  there is no 
arab language at babelfish.altavista.com.  dutch is there, and english.

     i will try to send this message around.  i hope some law agents will
look at john bokma.  he may work for al jazeera, on the computer webs and tv.

    concerned,
    william

>     p.s.   i ran a cross reference on john bokma  whereabouts, like he 
>just admits <Xns9659ACE89699Fcastleamber@130.133.1.4> .
>
>    look for the  words "al-jazeera" and "new zealand", or netherlands, 
>mexico, turkey, or "sri lanka".  can it be only coincidence that john bokma 
>shows  up in the same places around the world, and at same times that 
>al jazeera showing up there?  thats way to many coincidences for one to have.
>
>     you can see  his programs at www.aljazeera.com,  and use translations 
>at babelfish.altavista.com, if you need, like for his dutch records.   somebody 
>needs to tell fbi agents this john bokma woirks for terror computers and tv.
>

>>    i keep looking at the john bokma al jazeera connection, and his dossier 
>>gets bigger.  this just one day cancels for al-jazeera and arab militant.  do 
>>bokma clients know how deep  he works for al jazeera?  look at this.
>>
>>    see this from 2003, cancel  for al jazeera and other arab names
>>at this message <bm7a55$7lh$1@dexter.hensema.net> 
>>---
>>nl.internet.misbruik.rapport > Cancelreport from autocancelbot Sat Oct 11 
>>00:00:05 2003 - View Parsed
>>From: Erik Hensema <cancel...@hensema.net>
>>Newsgroups: nl.internet.misbruik.rapport
>>Subject: Cancelreport from autocancelbot Sat Oct 11 00:00:05 2003
>>Followup-To: nl.internet.misbruik
>>Date: Fri, 10 Oct 2003 22:00:05 +0000 (UTC)
>>Approved: cancel...@hensema.net
>>Message-ID: <bm7a55$7lh$1@dexter.hensema.net>
>>NNTP-Posting-Host: dexter.hensema.net
>>NNTP-Posting-Date: Fri, 10 Oct 2003 22:00:05 +0000 (UTC)
>>
>>Id:         SWEN-ac-1065775366-168-1872
>>From:       John Bokma <postmas...@castleamber.com>
>>Subject:    Re: Gibe virus onderschepprogramma maken met Delphi
>>Newsgroups: nl.comp.programmeren
>>Message-Id: <bm5re6$bs...@nl-news.euro.net>
>>
>>Id:         1063628593-ac-1065747874-64-61268
>>From:       Rasheed AL-Jazeera <z...@itucxoh.org>
>>Subject:    nlo.news.groups, rethink the cool
>>Newsgroups: nlo.news.groups
>>Message-Id: <7c274433.037d6...@news.makmilac.org>
>>
>>Id:         1063628593-ac-1065748328-65-93686
>>From:       Hakeem Agha AL-Najjar <y...@nozju.org>
>>Subject:    nl.sport.vissen, power of his own PR
>>Newsgroups: nl.sport.vissen
>>Message-Id: <e2cd6499.cc982...@news.tekxeviv.org>
>>
>>Id:         1063628593-ac-1065748636-66-67216
>>From:       Abdel Said al-Zahhar <atukl...@qewzob.org>
>>Subject:    Re: nl.sport.bridge, counterbranding game
>>Newsgroups: nl.sport.bridge
>>Message-Id: <bd1a8b42.34289...@news.ajodfeb.org>
>>
>>Id:         1063628593-ac-1065748640-67-29631
>>From:       Ahmed al-Zawahiri <yxo...@nunjiry.org>
>>Subject:    nl.sport.voetbal, a fading empire
>>Newsgroups: nl.sport.voetbal
>>Message-Id: <ee9837b0.abcb6...@news.ecodzymo.org>
>>
>>Id:         1063628593-ac-1065744129-55-50231
>>From:       Ayub Al Zahhar <vuk...@gadvo.org>
>>Subject:    Re: nl.sport.skate, we take on Phil
>>Newsgroups: nl.sport.skate
>>Message-Id: <18676a61.65ae1...@news.esapf.org>
>>
>>Id:         1063628593-ac-1065744130-56-4336
>>From:       Karim Muhammad <yqihp...@bengiq.org>
>>Subject:    nl.sport.varen, isn't exactly rocket science
>>Newsgroups: nl.sport.varen
>>Message-Id: <c0808799.cc7fe...@news.sohli.org>
>>
>>Id:         1063628593-ac-1065744134-57-60721
>>From:       Fahd Saad Haq <inu...@ajobjyb.org>
>>Subject:    nl.kunst.sf+fantasy, a final challenge
>>Newsgroups: nl.kunst.sf+fantasy
>>Message-Id: <e124f79d.2fa3f...@news.iluqmo.org>
>>
>>Id:         1063628593-ac-1065744135-58-79683
>>From:       Fahd el-Hassan <ixorx...@hivqiq.org>
>>Subject:    Re: nl.sport.klim+bergsport, grass roots capitalism
>>Newsgroups: nl.sport.klim+bergsport
>>Message-Id: <43ddea45.9f23d...@news.koznaxu.org>
>>
>>Id:         1063628593-ac-1065744136-59-36414
>>From:       Ramez al Shehhi <ydabb...@pubvud.org>
>>Subject:    nl.sport.volleybal, megacorps do not control
>>Newsgroups: nl.sport.volleybal
>>Message-Id: <7785777c.94c2b...@news.sowted.org>
>>
>>Id:         1063628593-ac-1065745335-60-95994
>>From:       Fahd al-Islamia <m...@esuhv.org>
>>Subject:    Re: nl.media.tv, brand damage
>>Newsgroups: nl.media.tv
>>Message-Id: <994d5015.dfeb0...@news.ajublu.org>
>>
>>Id:         1063628593-ac-1065746233-61-20559
>>From:       Shah AL-Najjar <gexqu...@xasnato.org>
>>Subject:    nl.luchtvaart.microlight, undisputed champion
>>Newsgroups: nl.luchtvaart.microlight
>>Message-Id: <cb8526b5.7f1ae...@news.awubr.org>
>>
>>Id:         1063628593-ac-1065746534-62-77779
>>From:       Ibrahim Feyd AL-Islamia <ihynf...@ozuqvox.org>
>>Subject:    nl.gezondheid.alt-genezen, rethink the shoe
>>Newsgroups: nl.gezondheid.alt-genezen
>>Message-Id: <57735953.4e7e2...@news.byrqijav.org>
>>
>>Id:         1063628593-ac-1065747432-63-5384
>>From:       Abdul Hussein Mohammed <atiq...@poxpuxos.org>
>>Subject:    nl.sport.algemeen, marketing momentum
>>Newsgroups: nl.sport.algemeen
>>Message-Id: <68ffd2e1.7f9bd...@news.titcano.org>
>>---
>>     somebody should check all these message boards for john bokma 
>>informtaion.  interpol, fbi, and warn other groups about him.
>>
>>>    i have a report to make.  on another group i have been watching a thread 
>>>where somebody named "john bokma" has been hassling another reader for some 
>>>months now.  i think its politically motivated,  because the other guy 
>>>talks in good support of the us, and doesnt like terrorists.
>>>
>>>   i did a quick search for "john bokma", and i was  surprised to find out 
>>>that his whereabouts show him all over the place on the internet.  every 
>>>thing from new zealand, netherlans, mexico, and us.  scope it  for yourself.
>>>
>>>   now heres the clincher.  while i was searching through different message 
>>>boards i found some chatter in foreign language (dutch?), saying bokma writes
>>>>>computer  programs for terror al-jazeera webs, and has other suspicious 
>>>connections to  muslems.  has this john bokma been red flagged or reported to
>>>>>the  fbi?  somebody should take a close look at this guy.  he could be 
>>>working for alqueda terrorists. 
>>>
>>>   if it helps here are some address emails i found with his name on them.
>>>
>>>   jbokma@caiw.nl
>>>    j.j.j.bokma@caiw.nl
>>>   use@reply.address.com
>>>  john@castleamber.com
>>>   postmaster@castleamber.com







------------------------------

Date: Sun, 22 May 2005 22:31:26 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: How do I pattern match variables in Perl?
Message-Id: <2L7ke.11965$E7.9469@news-server.bigpond.net.au>

"Graham" <graham@letsgouk.com> wrote in message news:429097ee.0@entanet...
:I want to match $variable in an array. My script is as follows:-
:
: foreach ($line(@lines)
: {
: if ($line =~ /\$variable/i)
: {
: $counter++;
: last;
: }
: }
:
: The array definitely contains $variable, but I get no match. I've tried
: countless variations of the line:
: if ($line =~ /\$variable/i)
: all to noavail
: Can someone put me out of my misery, please?


foreach $line (@lines){
    if ($line =~ /$variable/i){
        $counter++;
        last;
    }
}


Removed two characters and re-formatted for easier reading... can you spot 
the difference?

*hint - Why escape the variable??

P 




------------------------------

Date: Sun, 22 May 2005 21:37:04 GMT
From: Maqo <maqo@yahoo.com>
Subject: HTML::TableExtract punctuation parsing
Message-Id: <4Y6ke.13434$IX4.11314@twister.nyc.rr.com>

Is there any way to prevent HTML::TableExtract from mangling punctuation 
  in parsed text?  For example, the below code is parsing “don’t come” 
in the target URL as “don’t come”.  Is it something about the 
document encoding, or a limitation of the module?

Many thanks!

------------------------------------------------------------

use LWP::Simple;
use HTML::TableExtract;

$URL = 
"http://www.pimco.com/LeftNav/Late+Breaking+Commentary/IO/2005/IO+May-June+2005.htm";

$content = get($URL);
my $te = new HTML::TableExtract( depth=>1, count=>4, gridmap=>0, 
keep_html=>1);

$te->parse($content);
foreach $ts ($te->table_states)
{
    foreach $row ($ts->rows)
    {
       print $$row[0];
    }
}


------------------------------

Date: Mon, 23 May 2005 00:36:49 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: ISO "advanced" info on benchmarking in Perl
Message-Id: <d6r8j1$fe3$1@reader1.panix.com>




I have found a lot of stuff on benchmarking Perl, but it rarely
goes beyond the very basics; i.e. description of Benchmark.pm and
maybe a word or two on making sure that the things being compared
don't incur in too much extraneous overhead, and that whatever
overhead they require should be as similar as possible in the cases
being compared.

Does anyone know of a discussion of benchmarking in Perl that goes
beyond these basic topics?  I am particularly interested in something
that points out common benchmarking pitfalls.

Thanks!

kj

-- 
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.


------------------------------

Date: Sun, 22 May 2005 18:45:41 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: regex - cannot find the "\"  ?
Message-Id: <nbk191hshq4cu737s90oj5ng1hb51c6t3q@4ax.com>

Hello,

I am trying to replace the text between the \ and the .j  - there may
be multiple instances in the line with different text between the \
and the .j

The following does not work.

if ($line =~ /\\(.*?)\.j/g ) {

$line =~ s/$1/fred/g;

}

I thought \\ would find the \ and using .*? would get the minimum
characters between a \ and the next .j but I must be wrong?

Also not sure about the use of /g

Cheers

Geoff


------------------------------

Date: Sun, 22 May 2005 19:00:37 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <qhl1919cg0ro4600u4isib9jtl4hiaqg7a@4ax.com>

On Sun, 22 May 2005 18:45:41 GMT, Geoff Cox
<geoff.cox@notquitecorrectfreeuk.com> wrote:

>Hello,
>
>I am trying to replace the text between the \ and the .j  - there may
>be multiple instances in the line with different text between the \
>and the .j

actually not quite clear above - the text between the \ and .j is part
of the name of a file and I wish to put m- in front of the name of any
files found on each line ...

Geoff


>
>The following does not work.
>
>if ($line =~ /\\(.*?)\.j/g ) {
>
>$line =~ s/$1/fred/g;
>
>}
>
>I thought \\ would find the \ and using .*? would get the minimum
>characters between a \ and the next .j but I must be wrong?
>
>Also not sure about the use of /g
>
>Cheers
>
>Geoff



------------------------------

Date: Sun, 22 May 2005 21:08:44 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <d6qosf$3c1$1@redhat2.bham.ac.uk>



Geoff Cox wrote:

> Hello,
> 
> I am trying to replace the text between the \ and the .j  - there may
> be multiple instances in the line with different text between the \
> and the .j
> 
> The following does not work.
> 
> if ($line =~ /\\(.*?)\.j/g ) {
> 
> $line =~ s/$1/fred/g;
> 
> }

That is wrong on so many levels.  You are finding part of the string 
then trying to reinterpret that as another regex.  You are using m//g in 
    a scalar context is a way that makes no sense.

> I thought \\ would find the \ and using .*? would get the minimum
> characters between a \ and the next .j but I must be wrong?

The ? qualifier makes .* non-greedy.  That is it will match as few 
characters as it can from a given starting position.  It does not 
however make it match as late as possible, the regex engine will still 
seek the first match it can find.

You probably wanted to find every string of non-backslashes before a .j 
and replace it with the string 'fred'.

   s/[^\\]+\.j/fred.j/g;




------------------------------

Date: Sun, 22 May 2005 20:46:39 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <0lr191dl43597lu3c76huc2d17o3dau2ai@4ax.com>

On Sun, 22 May 2005 21:08:44 +0100, Brian McCauley <nobull@mail.com>
wrote:

>You probably wanted to find every string of non-backslashes before a .j 
>and replace it with the string 'fred'.
>
>   s/[^\\]+\.j/fred.j/g;

Brian,

Not quite - if I follow you ....

a line might have 

hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng late

and I want to change that to

hello what a fine day\m-jane.jms\m-alan.jkm\m-james.jdm\it is getitng
late

ie put m- in front of the file names 

Cheers

Geoff





------------------------------

Date: Sun, 22 May 2005 16:00:13 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <slrnd91smt.90t.tadmc@magna.augustmail.com>

Geoff Cox <geoff.cox@notquitecorrectfreeuk.com> wrote:

> Also not sure about the use of /g


Then read the documentation about the use of /g

If there is something in the docs that you don't understand,
then ask a question about what the docs say.


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: Sun, 22 May 2005 21:11:28 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <r6t1919pqk7so9bhq0mkm0uig87rkp3d30@4ax.com>

On Sun, 22 May 2005 16:00:13 -0500, Tad McClellan
<tadmc@augustmail.com> wrote:

>Geoff Cox <geoff.cox@notquitecorrectfreeuk.com> wrote:
>
>> Also not sure about the use of /g
>
>
>Then read the documentation about the use of /g

OK ... point taken.

What I cannot see is how to find the text whihc comes after a \ and
before the .j

\hhjkkh\gfhfhfgh\uuioui\fred.j

so I want to ignore the first 4 \ and then find the fred ...

Geoff






>
>If there is something in the docs that you don't understand,
>then ask a question about what the docs say.



------------------------------

Date: Sun, 22 May 2005 21:13:49 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <hC6ke.7219$HI.7139@edtnps84>

Geoff Cox wrote:
> On Sun, 22 May 2005 21:08:44 +0100, Brian McCauley <nobull@mail.com>
> wrote:
> 
>>You probably wanted to find every string of non-backslashes before a .j 
>>and replace it with the string 'fred'.
>>
>>  s/[^\\]+\.j/fred.j/g;
> 
> Not quite - if I follow you ....
> 
> a line might have 
> 
> hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng late
> 
> and I want to change that to
> 
> hello what a fine day\m-jane.jms\m-alan.jkm\m-james.jdm\it is getitng
> late
> 
> ie put m- in front of the file names 

$ perl -le'
my $line = q/hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng 
late/;
print $line;
$line =~ s/([^\\]+\.j)/m-$1/g;
print $line;
'
hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng late
hello what a fine day\m-jane.jms\m-alan.jkm\m-james.jdm\it is getitng late



John
-- 
use Perl;
program
fulfillment


------------------------------

Date: Sun, 22 May 2005 21:37:24 GMT
From: Geoff Cox <geoff.cox@notquitecorrectfreeuk.com>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <8fu191l7khiev57i5f9b17vf1gjq21t8ej@4ax.com>

On Sun, 22 May 2005 21:13:49 GMT, "John W. Krahn"
<someone@example.com> wrote:

>$ perl -le'
>my $line = q/hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng 
>late/;
>print $line;
>$line =~ s/([^\\]+\.j)/m-$1/g;
>print $line;
>'

John - many thanks - works fine - can just explain a couple of points
 ..
how does the perl -le work ?

how does the regex work?! 

it looks for one or more characters which are not \ and then .j but
how does it find the characters beteen the \ immediately to the left
of .j and .j itself ??!

Cheers

Geoff










>hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng late
>hello what a fine day\m-jane.jms\m-alan.jkm\m-james.jdm\it is getitng late
>
>
>
>John



------------------------------

Date: Mon, 23 May 2005 00:37:00 +0200
From: Fabian Pilkowski <pilkowsk@informatik.uni-marburg.de>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <3fcfs9F72gmdU1@individual.net>

* Geoff Cox schrieb:
> "John W. Krahn" wrote:
> > 
> > $ perl -le'
> > my $line = q/hello what a fine day\jane.jms\alan.jkm\james.jdm\it is getitng 
> > late/;
> > print $line;
> > $line =~ s/([^\\]+\.j)/m-$1/g;
> > print $line;
> > '
> 
> John - many thanks - works fine - can just explain a couple of points
> ..
> how does the perl -le work ?

Just read `perldoc perlrun`. All those switches for your perl
interpreter are described there.

> 
> how does the regex work?! 

It's almost the same regex Brian has proposed. He also explained:

    | You probably wanted to find every string of non-backslashes
    | before a .j and replace it with the string 'fred'.
    |
    |    s/[^\\]+\.j/fred.j/g;

If you are not familiar with match variables like $1, $2, $3 etc you
have to read `perldoc perlre`, didn't you?

regards,
fabian


------------------------------

Date: Mon, 23 May 2005 00:04:41 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: regex - cannot find the "\"  ?
Message-Id: <Xns965ECC1426165asu1cornelledu@127.0.0.1>

Geoff Cox <geoff.cox@notquitecorrectfreeuk.com> wrote in 
news:r6t1919pqk7so9bhq0mkm0uig87rkp3d30@4ax.com:

> On Sun, 22 May 2005 16:00:13 -0500, Tad McClellan
> <tadmc@augustmail.com> wrote:
> 
>>Geoff Cox <geoff.cox@notquitecorrectfreeuk.com> wrote:
>>
>>> Also not sure about the use of /g
>>
>>
>>Then read the documentation about the use of /g
> 
> OK ... point taken.
> 
> What I cannot see is how to find the text whihc comes after a \ and
> before the .j
> 
> \hhjkkh\gfhfhfgh\uuioui\fred.j
> 
> so I want to ignore the first 4 \ and then find the fred ...

Elsethread, you explain that this is related to filenames and such.

I am a little stumped by your approach.

Please read

perldoc File::Basename

especially the bit about fileparse.

Sinan
-- 
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)

comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html


------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

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.

#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 V10 Issue 8103
***************************************


home help back first fref pref prev next nref lref last post