codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use warnings; my $string = "4 2 6 7"; my $i = 6; #use any value of $i my @x = split / /, $string; my $count = 0; foreach (@x) { if($_ == $i) { print "matched at position $count"; die $!; } $count++; } print "integer doesn't found in string";
Private
[
?
]
Run code
Submit