Помогите По Perl, хелп....это вам же на статистику CSS Опции

[[bs1*vanix]]

ну могу загрузить модули в Perl

Такая картина....
Perl-ActivePerl v.5.6.x

[Sleeps-Darkly]

Вопрос - почему название папки русское? Имеет полное право не работать.

[[bs1*vanix]]

Да нееее....
тут все ок т.к. я загрузил тот bat файл

а вот этот bat не хочет инсталлировать модуль

[uchitokenikui mu...]

Да нееее....
тут все ок т.к. я загрузил тот bat файл

а вот этот bat не хочет инсталлировать модуль

Он не видит твой файл DBI.ppd.
Проверь названия файла(DBI.ppd?). Так же проверь где он находиться, он должен находиться в одной папке с bat.

[[bs1*vanix]]

,May 18 2005, 05:47 PM]Да нееее....
тут все ок т.к. я загрузил тот bat файл

а вот этот bat не хочет инсталлировать модуль

Он не видит твой файл DBI.ppd.
Проверь названия файла(DBI.ppd?). Так же проверь где он находиться, он должен находиться в одной папке с bat.

С этим все тоже ОК

[[bs1*vanix]]

CODE

<SOFTPKG NAME="DBI" VERSION="1,37,0,0">
<TITLE>DBI</TITLE>
<ABSTRACT>Database independent interface for Perl</ABSTRACT>
<AUTHOR>Tim Bunce &lt;dbi-users@perl.org&gt;</AUTHOR>
<IMPLEMENTATION>
 <OS NAME="MSWin32" />
 <ARCHITECTURE NAME="MSWin32-x86-multi-thread-5.8" />
 <CODEBASE HREF="x86/DBI.tar.gz" />
</IMPLEMENTATION>
</SOFTPKG>

Вот код DBI.ppd

<CODEBASE HREF="x86/DBI.tar.gz" />

этот файл тоже есть

[ufonavt]

вопрос по perl...
в текстовом файле найти символы x и заменить их на y.
или хотябы как перебрать символы в файле...

---------------19th December 2007 - 23:53-------------

ладно.... найдите ошибку:

» Кликните для просмотра/скрытия текста «

Код

my $i = 0;
if ( $#ARGV != 3 )     # требуем 4 параметра
{
  print STDERR "Укажите параметры: имя входного файла\n";        # выводим сообщение об ошибке
  exit( 0 );    # возвращаем операционной системе значение 0
}
open( READ, "< $ARGV[ 0 ]" ) || die "Не могу открыть файл $ARGV[ 0 ]: $!\n";
open( WRITE, "> $ARGV[ 1 ]" ) || die "Не могу открыть файл $ARGV[ 1 ]: $!\n";
while ( <READ> )
{
  if ( $READ[ $i ] == $ARGV[ 2 ] )
   {
    $WRITE[ $i ] = $ARGV[ 3 ];
   }
  else
  {
    $WRITE[ $i ] = $READ[ $i ];
  }
  $i++;
}
# закроем фалы
close( READ ) || die "Не могу закрыть файл $ARGV[ 0 ]: $!\n";
close( WRITE ) || die "Не могу закрыть файл $ARGV[ 1 ]: $!\n";

exit( 0 );

http://image.kraslan.ru/images/uuu/qqqq_1.jpg

[PanamOS]

в текстовом файле найти символы x и заменить их на y.

Я так понял тебе нужно что-то вроде этого

» Кликните для просмотра/скрытия текста «

Код

if ( $#ARGV != 3 )     # требуем 4 параметра
{
  print STDERR "Укажите параметры: имя входного файла\n";        # выводим сообщение об ошибке
  exit( 0 );    # возвращаем операционной системе значение 0
}

open( READ, "< $ARGV[ 0 ]" ) || die "Не могу открыть файл $ARGV[ 0 ]: $!\n";
open( WRITE, "> $ARGV[ 1 ]" ) || die "Не могу открыть файл $ARGV[ 1 ]: $!\n";

my ($p, $r) = @ARGV[2..3];

while (my $str = <READ> )
{
  $str =~ s/$p/$r/g;
  print WRITE $str;
}

# закроем фалы
close( READ ) || die "Не могу закрыть файл $ARGV[ 0 ]: $!\n";
close( WRITE ) || die "Не могу закрыть файл $ARGV[ 1 ]: $!\n";

exit( 0 );

Сообщение отредактировал PanamOS - Dec 22 2007, 09:12

[ТольКо]

Я почему то каждый раз пугаюсь при открыитии поста cmd окошечко немного смушает наверное