OpenForum RSS: ��

�� (��)

Wed, 05 Feb 2014 01:21:14 GMT

> �� ?
> ��
> mkdir "$r_dir/$dir-$usr";
> ��

sed -i ".bak" 's|/$dir|/$dir-$usr|g' work.pl

�� (��)

Tue, 04 Feb 2014 18:36:53 GMT

>[�� ]
> �� 2013-01-014234
> � ��
> �� , �� , ��
> (��., 2013-01-014234-duble)
> ��-�� :
> if (-d "$dir")
> { print "dublicate";
> mkdir "$r_dir/$dir";
> rename "$r_dir/$dir","$r_dir/$dir,duble";
> `touch $r_dir/$dir,duble/$usr"`;

�� ?
��
mkdir "$r_dir/$dir-$usr";
��

�� (gorlum300)

Tue, 04 Feb 2014 17:37:50 GMT

��, �� ! �� !:)
�� , �� $dir �� (�� ) �� .

�� :
user1 2013-01-014234 http://ya.ru
user2 2013-01-014234 http://google.ru

�� 2013-01-014234
� �� , �� , �� (��., 2013-01-014234-duble)
��-�� :

if (-d "$dir")
{ print "dublicate";
mkdir "$r_dir/$dir";
rename "$r_dir/$dir","$r_dir/$dir,duble";
`touch $r_dir/$dir,duble/$usr"`;

�� (��)

Tue, 04 Feb 2014 12:41:18 GMT

>[�� ]
> Use of uninitialized value $usr in concatenation (.) or string at ./work2.pl line 38, <FH> line 3.
> Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
> Use of uninitialized value $out in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
> Use of uninitialized value $url in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
> Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
> Use of uninitialized value $out2 in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
> Use of uninitialized value $url2 in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
> wget: missing URL
> Usage: wget [OPTION]... [URL]...
> �� - �� ?

��
�� , �� $dir, $out, $url
��

�� (gorlum300)

Tue, 04 Feb 2014 10:55:49 GMT

�� .
�� .
� �� :

user1 2013-01-014234 http://ya.ru http://google.com
user2 2013-01-013311 http://ya2.ru http://google2.com

��
�� , �� , �� :

#!/usr/bin/perl
use strict;
use warnings;

my ($usr, $dir, $url, $url2, $out, $out2);

my $r_dir = "~/Downloads";

my $file = "~/Downloads/txt";

open FH, $file or die "can't open $file: $!";

for (;;) {

exit if (stat(FH))[3] == 0;

while (<FH>) {
chomp;

my @str = split(" ", $_);

$usr = $str[0];
$dir = $str[1];
$url = $str[2];
$url2 = $str[3];

$out = $url;
$out =~ s|^.*/(.*)$|$1|;
$out2 = $url2;
$out2 =~ s|^.*/(.*)$|$1|;

mkdir "$r_dir/$dir";

`touch "$r_dir

�� (��)

Tue, 04 Feb 2014 08:23:30 GMT

> �� , ��, �� ?

� ��, �� ӣ�� , �
�� ӣ�� .

user1 2013-01-014234 http://ya.ru
user2 2013-01-033122 http://google.ru

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

use strict;
use warnings;

my ($usr, $dir, $url, $out);

# ��
my $r_dir = "/tmp";

# �� ̣� ��
# user1 date url
# user2 date url
my $file = "/tmp/txt";

open FH, $file or die "can't open $file: $!";

for (;;) {
# �� ))
exit if (stat(FH))[3] == 0;

while (<FH>) {
chomp;

# �� split'��
my @str = split(" ", $_);

$usr = $str[0]; # ��
$dir = $str[1]; # ��

�� (gorlum300)

Mon, 03 Feb 2014 19:06:05 GMT

��! �� , ��, � �� :
$out =~ s|.*/(.*)\"|$1|;

mkdir "$r_dir/$dir";
`touch "$r_dir/$dir/$usr"`;
`wget -O "$r_dir/$dir/$out" $url`;
---
Global symbol "$out" requires explicit package name at ./workp.pl line 38.
Global symbol "$out" requires explicit package name at ./workp.pl line 42.

� �� , �� ?

> �� - ��, ��?
> �� ?
> �� ף��?

�� 50-500kb.
� ��, ��, �� , � � �� (�� ), �� warning � �� .

> ��
> user date url
> ��
> frog32 2013-01-014234 "url"
> �� ģ��

��

�� (��)

Mon, 03 Feb 2014 16:53:48 GMT

>[�� ]
> var1 frog32
> var2 2013-01-014234
> var3 "url"
> var1 rabit1
> var2 2013-01-033122
> var3 "url2"
> ��
> ��
> �� var2, ��
> �� var1 � �� var3.

�� .
�� perl
�� ))
�� ((
�� - ��, ��?
�� ?
�� ף��?

#!/usr/bin/perl

use strict;
use warnings;

my ($usr, $dir, $url);

# ��
my $r_dir = "/tmp";
# ��
my $file = "/tmp/txt";

open FH, $file or die "can't open $file: $!";

for (;;) {
exit if (stat(FH))[3] == 0;

while (<FH>) {
chomp;

if (/var1/) {
s/^var1\s(.*)$/$1/;
$usr = $1;
}

if (/var2/) {

�� (skb7)

Sun, 02 Feb 2014 21:08:34 GMT

��, � �� :
[code]
for dir_name in $(tail -n $not_processed_lines file_name | grep var2 | awk '{print $2}'); do
mkdir -p $dir_name
....
done
[/code]

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

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

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

��� ������� ����� ���� �� �������������� (gorlum300)

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

��� ������� ����� ���� �� �������������� (gorlum300)

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

��� ������� ����� ���� �� �������������� (gorlum300)

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

��� ������� ����� ���� �� �������������� (skb7)

OpenForum RSS: ��

�� (��)

�� (��)

�� (gorlum300)

�� (��)

�� (gorlum300)

�� (��)

�� (gorlum300)

�� (��)

�� (skb7)