info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
в чем ошибка ?
0 views
Skip to first unread message
Mikhail Stakhanov
Apr 5, 2019, 6:49:59 PM4/5/19
to
Здравствуйте, All!
----
my @files_dir;
my %files={};
my $i=0;
foreach my $dir (@dirs) {
opendir(DIR, $dir) or die "can't open $!";
@files_dir = grep !/^\.\.?$/, readdir DIR;
close DIR;
print join ("\n",@files_dir);
foreach my $tmp (@files_dir) {
$tmp=decode("cp1251",$tmp) if $^O =~ /MSWin/;
>>!!! %files{$tmp} = "$i";
}
$i++;
----
Can't modify key|value hash slice in list assignment at ...pl line !!!, near
""$i";"
с @dirs все нормально!
нужно %files = ( filename => i(номер директории))
Всего наилучшего, Mikhail
----
my @files_dir;
my %files={};
my $i=0;
foreach my $dir (@dirs) {
opendir(DIR, $dir) or die "can't open $!";
@files_dir = grep !/^\.\.?$/, readdir DIR;
close DIR;
print join ("\n",@files_dir);
foreach my $tmp (@files_dir) {
$tmp=decode("cp1251",$tmp) if $^O =~ /MSWin/;
>>!!! %files{$tmp} = "$i";
}
$i++;
----
Can't modify key|value hash slice in list assignment at ...pl line !!!, near
""$i";"
с @dirs все нормально!
нужно %files = ( filename => i(номер директории))
Всего наилучшего, Mikhail
Mikhail Stakhanov
Apr 5, 2019, 8:54:58 PM4/5/19
to
Здравствуйте, Mikhail!
Ответ на сообщение Mikhail Stakhanov (2:5020/932.1) к All, написанное 06
апр 19 в 01:38:
Сорри вопрос снят, наверное надо спать идти! конечно же $files{$tmp}="$i";
Ответ на сообщение Mikhail Stakhanov (2:5020/932.1) к All, написанное 06
апр 19 в 01:38:
Сорри вопрос снят, наверное надо спать идти! конечно же $files{$tmp}="$i";
>>> !!! %files{$tmp} = "$i";
Всего наилучшего, Mikhail
0 new messages