- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
#!/usr/bin/perl
@zips = ();
while(<>){
@zips = m{([a-z]5[a-z])}igx;
for(my $j=0;$j<=$#zips;$j++){
$i = index($_,$zips[$j]);
print "$zips[$j] pos $i\n";
};
print "$zips\n";
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−126
#!/usr/bin/perl
@zips = ();
while(<>){
@zips = m{([a-z]5[a-z])}igx;
for(my $j=0;$j<=$#zips;$j++){
$i = index($_,$zips[$j]);
print "$zips[$j] pos $i\n";
};
print "$zips\n";
}
Находит комбинацию буква 5 буква
AliceGoth 20.03.2011 22:52 # −1
Lure Of Chaos 20.03.2011 23:33 # +1