this is a snippet of a file i'm trying to process:
###########
iotests (
WriteEmUp [create:openwr:write:close]
ReadEmUp [openrd:read:close]
)
####################
i need my perl regex to recognize "iotests", then make anything that
matches ".[.]" into a string. I can't count on the whitespace or the
new lines being there or not. i read the file into perl with:
#################
open (YIP, "<
/home/ryan/code/perl/enzo_fio_tests/output/verify_4MB/fio_enzo_verify_4mbb.inputscratch")
|| die("No SOUP FOR YOU!!");
LINE: while (<YIP>){
############################
and i've been struggling with some form of this, which doesn't work,
though I'm not quite sure why:
####################
if ( $_ =~ /iotests/ || $_ =~ /\[/ || $_ =~ /\]/ ){
next LINE if /./gs;
unless ( $` =~ /\)/ ) { #get # of pes
#unless ( $_ =~ /\)/ ){
$blah4 = $blah4 . $_ ;
print $blah4."\n";
}
###################
right now, as you can see, i'm just trying to turn the chunk i need
into a multiline string so i can work on it, but i haven't been
successfull. I know I must be approaching this the wrong way, any
ideas?
thanks
ryan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
