Try this:

# Find lines starting with "_ and ending with ".
my $MAL = '^"_.*"$';
[download]

Read up on perlretut for a good beginning guide to regular expressions.

OK, this is looking much better now...unfortunately it isn't printing anything in my backup.txt file... Here's what I have:

use strict;
use warnings;

my $out = "Backup/backup.txt";
my $logfile="log.txt";
my $MAL = '^"_.*"$';

my $logfile_new;

open LOG, "<", $logfile or die "Cannot open $logfile for read :$!";
open OUT, ">$out" or die "Cannot open $out for write :$!";

while ( <LOG> ) {
  if ( $_ =~ /$MAL/i ) {
  print OUT $_;
  }
}
[download]

Thanks :)

Is it possible you don't have any matching lines?  Perhaps there's some whitespace at the beginning or end of the lines you want to match?

This regex will match whitespace at the beginning and end of the line:

# Find lines starting with "_ and ending with ", and containing option
+al
# leading or trailing whitespace.
#
my $MAL = '^\s*"_.*"\s*$';
[download]

If this still doesn't help you, try logging the lines which DON'T match:

use strict;
use warnings;

my $out     = "Backup/backup.txt";
my $out2    = "nomatch.txt";
my $logfile = "log.txt";
my $MAL = '^\s*"_.*"\s*$';

open LOG,  "<", $logfile or die "Cannot open $logfile for read :$!";
open OUT,  ">$out" or die "Cannot open $out for write :$!";
open OUT2, ">$out2" or die "Cannot open $out2 for write :$!";

while ( <LOG> ) {
  if ( $_ =~ /$MAL/i ) {
    print OUT $_;
  } else {
    print OUT2 $_;
  }
}
[download]

Then you can see if your logging mechanism is to blame, or whether there's some other reason that the lines you expect to match don't actually match, by checking what (if anything) gets written to "nomatch.txt".

---

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

my $MAL = '^"_.*"$';
[download]

Is that what you want? ^ matchs the start of a line and $ matches the end. So this matches lines that only contain your string. As I read your spec, your string was only part of the line - in which case my solution might work better.

Update: Hmm... not sure why I'm being downvoted here as it looks to me like I'm pointing out the problem that liverpole spotted and fixed half an hour later. If someone could be polite enough to explain what they see as the problem then I'd appreciate it.

--


<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg