On 4/21/09 Tue Apr 21, 2009 10:46 AM, "Grant" <[email protected]>
scribbled:
> Thanks guys. With some help I've come up with this:
>
> $string = 'abc def ghi jkl mno pqr stu vwx yz';
> if(length($string) = 34) {$var1 = $string.":";}
'=' is assignment, '==' is test for numerical equality. Change the above
line to:
if( length($string) == 34 ) { $var1 = $string . ':' }
> if(length($string) > 34) {
> $string =~ s/\s//g;
The above line deletes all of the spaces in $string. Is that what you want
to do?
> ($var1, $var2) = $string =~ /(.){35}(.){26}/;
You should put your repeat specifiers inside the capture parentheses:
($var1, $var2) = ($string =~ /(.{35})(.{26})/);
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
