OpenForum RSS: ��

�� (johny69)

Tue, 24 Jun 2014 14:05:00 GMT

>[�� ]
> data=$(date -v -1d "+%F")
> mkdir /tmp/src_dir
> mkdir /tmp/dst_dir
> touch /tmp/src_dir/01 /tmp/src_dir/02 /tmp/src_dir/03 /tmp/src_dir/04 /tmp/src_dir/05
> cp /tmp/src_dir/01 /tmp/dst_dir/01-$data
> cp /tmp/src_dir/02 /tmp/dst_dir/02-$data
> cp /tmp/src_dir/05 /tmp/dst_dir/05-$data
> /tmp/script.pl
> ��, �� -�� ӣ �� ? )) � �� , ��
> ))))))))

��, �� . �� !
� ��-�� , �� ?�� .

�� (��)

Tue, 24 Jun 2014 13:22:57 GMT

#!/bin/sh

data=$(date -v -1d "+%F")

mkdir /tmp/src_dir
mkdir /tmp/dst_dir

touch /tmp/src_dir/01 /tmp/src_dir/02 /tmp/src_dir/03 /tmp/src_dir/04 /tmp/src_dir/05

cp /tmp/src_dir/01 /tmp/dst_dir/01-$data
cp /tmp/src_dir/02 /tmp/dst_dir/02-$data
cp /tmp/src_dir/05 /tmp/dst_dir/05-$data

/tmp/script.pl

��, �� -�� ӣ �� ? )) � �� , �� ))))))))

�� (��)

Tue, 24 Jun 2014 12:36:46 GMT

> �� ))

��. �� .

�� .

[code]
#!/usr/bin/perl

use strict;
use warnings;
use POSIX;

my $srcd = "/tmp/src_dir";
my $dstd = "/tmp/dst_dir";

my $yesterday = strftime "%F", localtime(time-86400);

my @src;
open SRC, "-|", "ls $srcd";
while(<SRC>) {
chomp;
push @src, $_;
}
close SRC;

my @dst;
open DST, "-|", "ls $dstd";
while(<DST>) {
chomp;
push @dst, $_ if /$yesterday/;
}
close DST;

my %seen;

foreach my $file (@dst) {$seen{$file} = 1}

foreach my $file (@src) {
unless ($seen{"$file-$yesterday"}) {
print "File $file-$yesterday not found!\n";
}
}
[/code]

�� ))

�� (johny69)

Tue, 24 Jun 2014 12:35:36 GMT

> #!/bin/sh
> mkdir /tmp/src_dir
> mkdir /tmp/dst_dir
> touch /tmp/src_dir/2014-06-21 /tmp/src_dir/2014-06-22 /tmp/src_dir/2014-06-23
> cp /tmp/src_dir/2014-06-21 /tmp/src_dir/2014-06-22 /tmp/dst_dir/
> /tmp/script.pl
> �� src � dst ((
> �� ))

��, � �� .

�� ,�� src_dir(�� ) �� .
� �� dst_dir � �� src_dir �� .

�.� �� src_dir �� dst_dir, �� src_dir,�� \�� dst_dir.
�� , opendir() �� , �� .

�� (��)

Tue, 24 Jun 2014 11:56:55 GMT

#!/bin/sh

mkdir /tmp/src_dir
mkdir /tmp/dst_dir

touch /tmp/src_dir/2014-06-21 /tmp/src_dir/2014-06-22 /tmp/src_dir/2014-06-23

cp /tmp/src_dir/2014-06-21 /tmp/src_dir/2014-06-22 /tmp/dst_dir/

/tmp/script.pl

�� src � dst ((

�� ))

�� (johny69)

Tue, 24 Jun 2014 09:50:25 GMT

>[�� ]
> foreach my $file (@src) {
> unless ($seen{$file}) {
> print "File $file not
> found!\n";
> }
> }[/code]
> http://www.inter-activ.ru/cgi-bin/texts.cgi?m=m24
> �� "Perl. �� . �� . ��
> �."
> � �� "� �� "

�� , ��!�� , ��, �� . � ��-�� .
�� /tmp/src_dir ��:
[code]johny@lab:~$ ls /tmp/src_dir/
file1 file2 file3 file4
[/code]
� � /tmp/dst_dir:
[code]johny@lab:~$ ls /tmp/dst_dir/
file1-2014-06-23 file2-2014-06-22[/code]
�.�. �� ,�� file2 file3 file4 �� ,�� ,exit �� "0".
� �� :
-�� ls
-�� @src_dir � @dst_dir � �� "-$yesterday".
��

�� (Andrey Mitrofanov)

Tue, 24 Jun 2014 05:21:27 GMT

> � �� ?

��, �� . ��, ��, ...

�� (��)

Tue, 24 Jun 2014 04:49:11 GMT

> �� . ��
> �� !

� �� , � �� !
[code]#!/usr/bin/perl

use strict;
use warnings;
use POSIX;

my $srcd = "/tmp/src_dir";
my $dstd = "/tmp/dst_dir";

my $yesterday = strftime "%F", localtime(time-86400);

my @src;
open SRC, "-|", "ls $srcd";
while(<SRC>) {
chomp;
push @src, $_ if /$yesterday/;
}
close SRC;

my @dst;
open DST, "-|", "ls $dstd";
while(<DST>) {
chomp;
push @dst, $_ if /$yesterday/;
}
close DST;

my %seen;

foreach my $file (@dst) {$seen{$file} = 1}

foreach my $file (@src) {
unless ($seen{$file}) {
print "File $file not found!\n";
}
}[/code]

http://www.inter-activ.ru/cgi-bin/texts.cgi?m=m24
�� "Perl. �� . �� . �� ."
� �� "� �� "

�� (Pahanivo)

Tue, 24 Jun 2014 03:57:25 GMT

� �� ?

OpenForum RSS: �������� ������ �������

�������� ������ ������� (johny69)

�������� ������ ������� (�������)

�������� ������ ������� (�������)

�������� ������ ������� (johny69)

�������� ������ ������� (�������)

�������� ������ ������� (johny69)

�������� ������ ������� (Andrey Mitrofanov)

�������� ������ ������� (�������)

�������� ������ ������� (Pahanivo)

OpenForum RSS: ��

�� (johny69)

�� (��)

�� (��)

�� (johny69)

�� (��)

�� (johny69)

�� (Andrey Mitrofanov)

�� (��)

�� (Pahanivo)