merlyn@iwarp.intel.com (Randal Schwartz) (02/22/90)
In article <7125@jpl-devvax.JPL.NASA.GOV>, lwall@jpl-devvax (Larry Wall) writes: | However, you should know that I'm strongly considering letting you do | pattern matching against the input symbol: | | <STDIN> =~ /^pattern/; | | If you do this currently it will just read one line and pattern match on | it. I'm considering making it read any extra lines it needs to satisfy the | pattern match. Except that this could break existing scripts... What's wrong with ($_ = <STDIN>) =~ /^pattern/ ? In fact, I think I've already used it a few times... Maybe you should turn Perl into Icon. Then we'd have *everything*. :-) echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;' -- /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\ | on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | | merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | \=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/