1. Perl / Говнокод #1167

    −150

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    use LWP::Simple;
use HTML::FormatText;
use Fcntl ':flock';
use DB_File;

for ($num = 0 ; $num <= 1900; $num=$num+25){

$url = "http://btk-online.ru/phcode/?curPos1=&curPos="."$num";

print $url."\n";

my $file = "text_in.txt";
my $file_out = "text_out.txt";

$connect = get($url) ;

$text = HTML::FormatText->format_string($connect);

open(MYFILE, ">" .$file) or die "Can't create file: $!";

flock(MYFILE, LOCK_EX);

print MYFILE $text, "\n";

flock(MYFILE, LOCK_UN);

$tie = tie( my @lines, DB_File , $file , O_RDWR , 0666 , $DB_RECNO)
  or die "Cannot tie file $file: $!\n";

for ( $line_number = 140; $line_number <= 317 ; $line_number++){

print $line_number "\n";

unless ( $line_number < $tie->length){

die "Didn't find line $line_number in $file \n";

}

open (YFILE, ">>" .$file_out) or die "Can't create file $! \n";

flock (YFILE, LOCK_EX);

print YFILE "$lines[$line_number-1] \n";

flock (YFILE, LOCK_UN);

}

}

    Ребят ! Спасибо ! Едиственное быстро найденое средство перекинуть код с одной тачки на другую :)

    Запостил: guest, 08 Июня 2009

    Комментарии (2) RSS

    Добавить комментарий