Recent content by gammaman1

hi, Does anyone know of a module I could use to constantly capture output within a timeframe? Basically, I want to capture everything that a console is spitting out for 60 seconds. Then I'm planning to search through the output to look for a specific phrase. Any tips would be much appriciated...

can someone break this down for me? I'm still trying to understand regular expressions: $test =~ /^(.*): +(.*)$/) thanks, gammaman

stevexff, you're right, i think there's some wierd characters that i'm not seeing. When I open the processed file up in windows notepad, the blanks are gone. But when I open it up in an editor such as textpad or editpad, the blanks show up. I tried your code, but it didn't seem to have any...

yeah, the results appear to be the same with or without an array open (INFILE, "<tmp1"); open RESULTS, ">results"; while (<INFILE>) { chomp; print RESULTS "$_\n" unless /^\s*$/; } close INFILE; close ERASE_BLANK; to be more accurate, both sets of code remove some blank...

thanks for your responses. with your comments, I melded everything together to create this, and as fas as I can see, it looks fine open FILENAME, "file1"; while(<FILENAME>) { next if /^\s*$/; chomp; push @myarray, $_; } close FILENAME; open FILENAME_TWO, ">results"...

#!/usr/bin/perl @mylist = ( 'one', '', # ignore 'three', '', # ignore 'five' ); foreach $value (@mylist) { print "$value\n" unless $value =~ m/^$/; } Its wierd, but I ran this on a file with 1000 lines and it worked...

you guys have all been a big help. I have one more question on regular expressions though. I want to make an if statement that will print out the line if a word is in the first pair of parenthesis. for example, these would print out: 1. (blah blah WORD) blah blah blah blah 2. (WORD) blah blah...

so how would I remove blank lines from a file? for example, open FILENAME, "temp"; @mylist = <FILENAME>; close FILENAME; where would i put perl -lne 'print unless /^\s*$/' ? thanks, gammaman

i tried adding the \], but it's still displaying the ]. for example: input: [testtest] test test test [testtest] output: ] test test test [testtest] for($i=0;$i<@mylist;$i++) { @mylist[$i] =~ s/[^\]]*//; } did i put it in the right spot? thanks, gammaman

using perl, how would i get it to erase everything up to and including the first bracket [ ? I have this, but it only erases up to the [. I need the bracket removed as well. for($i=0;$i<@mylist;$i++) { @mylist[$i] =~ s/[^]]*//; } any ideas? thanks, gammaman

hi, I have a windows version of perl installed, and I realized that I need a sed function that's like the unix version. Does perl have a sed? if so, would you call it the same as you would do in unix? ie. " sed -e '/^ *$/d' input" ? thanks, gammaman

thanks for the reply. I tried the code, and it worked if I had the files in the same directory. Is it possible to sort it with different files and different directories? For example, this is the outcome of the above code: C:\foldera\file1 C:\foldera\file10 C:\foldera\file2 C:\folderbcd\file3...

ah, chomp was what i was looking for. thanks guys!

thanks for the response, but this yields the same result :-(

hi, i'm having trouble with concatenation in perl. What I need to do is put the input of a file into an array. Then I want to join certain indices in the array. For example: open FILENAME, "testtest"; @mylist = <FILENAME>; close FILENAME; $temp = @mylist[0] . @mylist[1]; print "$temp"; The...