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>