Re: Regular Exression help

From: usenet@xxxxxxxxxxxxxxx
Date: 27 Apr 2006 11:35:26 -0700

Sandy wrote:

I want to count how many + and - are there in this file.

#!/usr/bin/perl
use strict; use warnings;

my ($plus, $minus);
while (<DATA>) { #you would use a filehandle to hello.c
$plus++ if /^\+/;
$minus++ if /^\-/;
}
print "Plus: $plus \n";
print "Minus: $minus \n";

__DATA__
+ foo
- bar
+ baz
+ bap
- baq

--
http://DavidFilmer.com

.

References:
- Regular Exression help
  - From: Sandy

Prev by Date: RE: How to test result of an extraction?
Next by Date: Re: #$ary ???
Previous by thread: Regular Exression help
Next by thread: reg exp help
Index(es):
- Date
- Thread

Relevant Pages

Re: OT: Why is C so popular?
... > about the indent program at the time? ... if foo: ...
(Debian-User)
Re: What do you LISPers think of Haskell?
... Bar: doBarThings; ... Baz: doBazthings; ... That is why I suggested some other language construct that would take ... to Java or C++.] ...
(comp.lang.lisp)
Re: __call__ considered harmful or indispensable?
... with a more obvious method name, so now instead of executing ... obj.execute(foo, bar, baz) ... same way in Python much, ...
(comp.lang.python)
Re: __call__ considered harmful or indispensable?
... obj.execute(foo, bar, baz) ... In this case there was a bug. ... same way in Python much, ...
(comp.lang.python)
Re: Inherited method access to variables
... itcl::class Bar { ... public method new_change_variable {vname vvalue} { ... $obj change_variable baz 7 ...
(comp.lang.tcl)