On Tue, Nov 22, 2005 at 10:36:49PM +0000, [EMAIL PROTECTED] wrote:
> SET A
> 1. Write a perl script to find the number of spaces in a given sentence
> using regular expression.
> please give me the answers of these questions.
I only have time to do this one for now. Maybe others will be able to
help answer the other questions.
$_=",.,,,,,,,,,.,,,,,,,,.,,.,,,,,,,,,,,,,,.,,,,,,,,,,,.,,,,,,,,,,,,,,.,,,,,.,,,,,,,,.,,,,,,";
s/\s//gs;tr/,./05/;@a=split(//);$_=<DATA>;tr/~`'"^/0-4/;map{$o
.=$a[$i]+$_;$i++}split(//);@a=$o=~m!...!g;map{print [EMAIL PROTECTED]; __DATA__
~'"~"'`~~`~~`~~``~~"^```~"'`~~```~"'`~^`'`~"'`````^``~~"'`~^````~^`~```^`````^`~'~""~`~
[ with thanks to Brian Mathis' JAPH generator ]
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
