RE: How to reinvent grep with perl? (OT: Cygwin grep)

2004-10-10 Thread Bakken, Luke
> > Voila. That's most likely your problem - a mismatch between > line endings > > and Cygwin mount point type. > > And in case you hadn't seen them before... there are at least a few > sets of unix tools for dos/windows. Cygwin maybe the best known but > I've used Uwin myself for sometime and

Re: How to reinvent grep with perl? (OT: Cygwin grep)

2004-10-10 Thread Harry Putnam
"Bakken, Luke" <[EMAIL PROTECTED]> writes: > Voila. That's most likely your problem - a mismatch between line endings > and Cygwin mount point type. And in case you hadn't seen them before... there are at least a few sets of unix tools for dos/windows. Cygwin maybe the best known but I've used U

Re: How to reinvent grep with perl?

2004-10-09 Thread Harry Putnam
"Siegfried Heintze" <[EMAIL PROTECTED]> writes: > This, works, but it sure is ugly. Is there not an easier way to do this with > perl? > > perl -e'@ARGV = ("-") unless @ARGV; while(@ARGV){ $ARGV= shift @ARGV; > if(!open(ARGV, $ARGV)){ warn "Cannot open $ARGV: $!\n"; next;} while > (){ print "$ARGV

RE: How to reinvent grep with perl?

2004-10-09 Thread Siegfried Heintze
f/^ *END *$/; }}' *.f Thanks, Siegfried -Original Message- From: news [mailto:[EMAIL PROTECTED] On Behalf Of Harry Putnam Sent: Saturday, October 09, 2004 4:33 PM To: [EMAIL PROTECTED] Subject: Re: How to reinvent grep with perl? "Siegfried Heintze" <[EMAIL PROTECTED]> writ

Re: How to reinvent grep with perl?

2004-10-09 Thread Harry Putnam
"Siegfried Heintze" <[EMAIL PROTECTED]> writes: > This works better than grep, except for the fact it does not print the file > name. How can I make perl print the file file name? How is it better than grep? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P

Re: How to reinvent grep with perl?

2004-10-09 Thread Harry Putnam
"Siegfried Heintze" <[EMAIL PROTECTED]> writes: > My man pages and info pages are not working well and I cannot figure out how > to make grep search for a certain pattern. I even tried egrep and fgrep. So > how do I reinvent grep with perl? Here is my attempt: > > > > perl -n -e 'print "$. $_" i

Re: How to reinvent grep with perl?

2004-10-09 Thread Andrew Gaffney
Siegfried Heintze wrote: Andrew, Thanks. When I hit "n" to go to the next page, it says "No previous regular expression (press RETURN)". So I can only display the first page. I have it expanded to the full screen but I still cannot see the portion of the display that tells me how to use extended

Re: How to reinvent grep with perl?

2004-10-09 Thread Andrew Gaffney
Siegfried Heintze wrote: My man pages and info pages are not working well and I cannot figure out how to make grep search for a certain pattern. I even tried egrep and fgrep. So how do I reinvent grep with perl? Here is my attempt: There's no need. When you do 'man whatever', you can hit '/', type

How to reinvent grep with perl?

2004-10-09 Thread Siegfried Heintze
My man pages and info pages are not working well and I cannot figure out how to make grep search for a certain pattern. I even tried egrep and fgrep. So how do I reinvent grep with perl? Here is my attempt: perl -n -e 'print "$. $_" if /^ *END *$/' *.f This works better than grep, except fo