Jan-Henrik wrote:
Dear Group,I'm new to Perl and I have a simple question: I ask for the entry of a number vie <STDIN>: ---------------------------------------- #!/usr/bin/perl -w use strict; my $foo; print "Enter number: "; $foo = <STDIN>; comp($foo); ---------------------------------------- Now I would like to check wether the user really entered a number and not letters. What would a check like that look like? A regular expression like this: ---------------------------------------- unless ($foo =~ /[a-zA-Z\D+][^.][\D*]/ {...}; ---------------------------------------- Is there an easier or more beautiful way? Also, how would I substract just a number from a string? Searched the net for an example but didn't succeed, so sorry for asking a question like that... Many thanks for your help! Kind regards, Jan-Henrik
#!/usr/bin/perl use warnings; use strict; my $foo; my $num = 3; print "Enter number: "; $foo = <STDIN>; chomp($foo); print $foo - $num unless $foo =~ /[a-zA-Z]+/; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
