Re: Simple regexp question

Hi droog114, Try this,

TIMTOWTDI

use strict;
use warnings;

open(FILE, shift) || die($!);

while(<FILE>){    
    my $hah = $_ =~ s/\#/$&/g;
    my $ast = $_ =~ s/\*/$&/g;    
    print '*' x 70, "\nLine No. $.\n",'*' x 70, "\n";
    $hah = 0 if (!($hah));
    $ast = 0 if (!($ast));
    print "Number of #'s\t$hah\n";
    print "Number of *'s\t$ast\n";        
}
close(FILE);
[download]

You should view this How (Not) To Ask A Question

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Comment on Re: Simple regexp question Select or Download Code

Replies are listed 'Best First'.
Re^2: Simple regexp question by SamCG (Hermit) on Mar 31, 2006 at 18:17 UTC
TIMTOWTDI I'd change `my $ast = $_ =~ s/\/$&/g;` to `my $ast = tr///;`, and do similarly for the $hah variable. Or, leaving the default variable intact, `my $ast = tr///;`. To each their own. Of course, the code doesn't "filter out lines with *'s and #'s" -- it prints a line of asterisks with the line number, and then prints the number of asterisks and number of hashes. I take it you simply intended to give the OP some code to work on without giving everything, while pointing out the question should have indicated some effort on his part.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Simple regexp question
by SamCG (Hermit) on Mar 31, 2006 at 18:17 UTC

my $ast = $_ =~ s/\*/$&/g;

my $ast = tr/*//;

my $ast = tr/*/*/;

[reply]
[d/l]
[select]