Покупка радиодеталей, микросхемы, конденсаторы, разъемы.

#!/usr/bin/perl -w open(T,"kitco") || die "Cannot open kitco"; while() { chomp; if( /\-{4,}/ ) { chomp($line=); if($line=~/London/) { open (F,">london.ssi") || die "Cannot create london.html"; $lame=;$lame=;$lame=; print F < �� AMPM AMPMAMPM EOL $found=1; } elsif( $line=~/Change\s{2,}Low/ ) { open (F,">newyork.ssi") || die "Cannot create newyork.html"; $lame=; print F < ��-�� min max EOL $found=1; } elsif( $line=~/NY/ ) { open (F,">europe.ssi") || die "Cannot create europe.html"; $lame=; print F < �� NY EOL $found=1; } else { $found=0; } if( $found ) { while( ($line=) !~ /\-{4,}/ ) { chomp($line); @td=split /\s{2,}/,$line; print F ""; for $td (@td) { next unless $td; print F "$td"; } print F "\n"; } print F "\n"; close F; } } } close T;