Re^3: extracting data from a line

I just ran that data line ( c:/loc1/loc2/loc3/84xxxxxB01_e1_1) through the above code and got 84xxxxxB01_e1_bot as expected, so I'm not sure why it didn't work for you.

while (<DATA>) {
  /\/([^\/]+)\d$/;
  print $1."bot\n";
}

__DATA__
c:/loc1/loc2/loc3/84xxxxxB01_e1_1
[download]

--- Jay

All code is untested unless otherwise stated.
All opinions expressed are my own and are intended as guidance, not gospel; please treat what I say as such and as Abigail said Think for yourself.
If in doubt ask.

Comment on Re^3: extracting data from a line Select or Download Code

Replies are listed 'Best First'.

Re^4: extracting data from a line
by RCP (Acolyte) on Nov 02, 2004 at 16:59 UTC

open (FILEH, "/tmp/aform");
while (<FILEH>) {
chomp;
open(MYOUTFILE, ">>/tmp/new_form");

 if ( /Department/ ) {  
      $bname =~ /^Board Name:(.+)Department/;

 print MYOUTFILE "$bname'\n";
    }
 close(FILEH);
 close(MYOUTFILE);
[download]

[reply]
[d/l]


Perl Monk, Perl Meditation
	PerlMonks