Perl открыть на запись несколько файлов одновременно

Тема в разделе "Perl программирование", создана пользователем etsilop, 23 июл 2009.

  1. etsilop

    etsilop Гость

    Репутация:
    0
    Есть необходимость создать несколько файлов и писать в них одновременно данные.
    подскажите как это правильно сделать - скрипт представленный ниже выдает ошибку.

    #!/usr/bin/perl -w
    use strict;
    use Data::Dumper;
    my @layers = ('a', 'b', 'c');
    foreach(@layers){
    print $_ ."\n";
    open($_, ">_out_$_.txt");
    print $_ 'test string';
    }
    __END__

    ./test_open.pl
    a
    Can't use string ("a") as a symbol ref while "strict refs" in use at ./test_open.pl line 7.
    >
     
  2. Axe79

    Axe79 Гость

    Репутация:
    0
    Код:
    #!/usr/bin/perl
    @layers = qw(AAS3 BBS2 DDS1);
    for (@layers){
    print $_;
    open($_, ">/home/axe/Desktop/$_") ||die "$!";
    print $_ "test string";
    close ($_);
    }
    набрал роботает
    посмотри 'qw'
     
  3. ad280379

    ad280379 Гость

    Репутация:
    0
    доброго дня,
    если файлы передаются из командной строки то получиться примерно следующее
    (ваше условие относительно того что файлы нужно создать не учитывал но легко делается)

    рабочий пример
    --------------------------
    #!/usr/bin/perl
    #use strict;
    $i=0;
    @names = @ARGV;

    while(<>)
    {
    if (eof)
    {
    ($a,$;) = split(/\./,$names[$i]);
    open($a,">$names[$i]") or die "Can't open $!";
    print $a "Test string \n";
    $i++;
    close($a);
    }
    }
    --------------------------

    формат prg_name.pl file1 file2 file3 ... fileN

     
Загрузка...
Похожие Темы - Perl открыть на
  1. Anna_Kashina
    Ответов:
    0
    Просмотров:
    226
  2. SvetlanaL
    Ответов:
    0
    Просмотров:
    512
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    494
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    576
  5. SvetlanaL
    Ответов:
    0
    Просмотров:
    683

Поделиться этой страницей