perl

"$file ne" это что такое? Аналог != что ли?

Сто лет на Перле ничего не писал уже.

Попробуйте "use strict" добавить.

стрикт, выведет ошибки, а ошибок в скрипте нет

работает как то не правильно, создаёт пустые файлы, заместо отфильтрованных

раз выводит, значит есть ?

print S "$1;$2;$2;$2\n" if /(https?:\/\/.+?html?)\]?(.+)\[\/url\]/;

у тебя $_ не задан. я так понял должен быть цикл while(<F>){}

правильно было сказано use strict; use warnings;

nonSmoker, спасибо, проблему решил

MAXi163 добавил 12.11.2010 в 19:54

в чём проблема?? на линуксе скрипт работает, на виндоусе отказывается

#!usr/bin/perl
use strict;
use warnings;
my $dir = "/home/jorik/111/";
opendir CD, "$dir";
my @a = readdir CD;
$b = '1';
foreach my $file (@a) { 
 if ($file ne '.' and $file ne '..' and $file =~ m/_(link)/) {
  open (F, "<", "$dir$file");
    open (S, ">", "$dir$b." . "csv");
    while (<F>) {
      print S "$1;$2;$2;$2\n" if /(https?:\/\/.+?html?)\]?(.+)\[\/url\]/; }
    close F;
    close S; 
    $b++;
 }
  }

у тебя на винде есть "/home/jorik/111/" ? Скорее всего заморочка с путями, сделай принты переменных с путями и именами файлов, и всё сам увидишь.

опять ты?

уже второй человек советует просто использовать отладчик.