From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Tue, 21 Dec 2004 15:59:53 +0300 From: Alexey Tourbin To: community@altlinux.ru Message-ID: <20041221125953.GQ3373@solemn.turbinal.org> Mail-Followup-To: community@altlinux.ru References: <50189387.20041217223921@fxp.ru> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="yhCE4sTDB5mqd9YJ" Content-Disposition: inline In-Reply-To: <50189387.20041217223921@fxp.ru> Subject: [Comm] Re: =?koi8-r?b?68HLINDF0sXNxdPUydTYIMbByswg0yDL0snX2c0gyc3FzsXN?= =?koi8-r?b?IN7F0sXa?= perl X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: community@altlinux.ru List-Id: Mailing list for ALT Linux users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 21 Dec 2004 13:48:04 -0000 Archived-At: List-Archive: List-Post: --yhCE4sTDB5mqd9YJ Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Fri, Dec 17, 2004 at 10:39:21PM +0300, Anatoly A. Ivanov wrote: > =FA=C4=D2=C1=D7=D3=D4=D7=D5=CA=D4=C5, community. >=20 > =F1 =CE=C9=DE=C5=C7=CF =CE=C5 =D0=CF=CE=C9=CD=C1=C0, =CE=C5 =C8=CF=DE=C5= =D4 =CF=CE =CB=CF=D0=C9=D2=CF=D7=C1=D4=D8=D3=D1 =C9 =D7=D3=C5 :( > =E5=D3=CC=C9 =DA=C1=D0=D5=D3=CB=C1=C0 =D3=C1=CD =C9=DA =CB=CF=CE=D3=CF= =CC=C9, =D7=D3=C5 =CE=CF=D2=CD=C1=CC=D8=CE=CF. =EE=CF =D4=D5=D4 =D0=D2=C9= =C8=CF=C4=C9=D4=D8=D3=D1 > =DC=CB=D2=C1=CE=C9=D2=CF=D7=C1=D4=D8 =D3=C9=CD=D7=CF=CC=D9 =CC=C9=C2=CF = =C2=D2=C1=D4=D8 =C9=CD=D1 =D7 =CF=C4=C9=CE=C1=D2=CE=D9=C5 =CB=C1=D7=D9=DE= =CB=C9. >=20 >=20 > =E5=D3=CC=C9 =C5=C7=CF =DA=C1=D0=D5=D3=CB=C1=C5=D4 =C4=D2=D5=C7=CF=CA =D0= =D2=CF=C3=C5=D3=D3, =D4=CF =C6=C9=C7 =D7=C1=CD... >=20 > sub move_file { > my ($file, $dir) =3D @_; > my $status; > # copy($file,$dir) or die "Copy failed: $!"; > $status=3D system('mv', $file, $dir); > open(FILE, ">/tmp/test_error.txt"); > print FILE "$status"; > close(FILE); >=20 >=20 > } >=20 > =D3 copy =C9=DA =D0=C5=D2=CC, =CF=DE=C5=CE=D8 =C4=CF=CC=C7=CF =D2=C1=C2= =CF=D4=C1=C5=D4, =CB=C1=CB =D7=C5=C4=C5=D4 =D3=C5=C2=D1 =D3 =DA=C1=D0=D5=D3= =CB=CF=C9 =C9=DA > =C4=D2=D5=C7=CF=C7=CF =D0=D2=CF=C3=C5=D3=D3 - =CE=C5 =DA=CE=C1=C0. =EB=C1=CB=CF=CA =D4=C1=CB=CF=CA "copy =C9=DA =D0=C5=D2=CC"? =F7 =D0=C5=D2= =CC=C5 =CE=C5=D4 =D7=D3=D4=D2=CF=C5=CE=CE=CF=C7=CF copy. > =D0=C1=D2=C1=CD=C5=D4=D2=D9 =D0=C5=D2=C5=C4=C1=C0=D4=D3=D1 =D0=D2=C1=D7= =C9=CC=D8=CE=CF, =CE=CF =D7 =D0=C5=D2=CD=C5=CE=CF=CA =D3 =C9=CD=C5=CE=C5=CD= =CF=CE=CF =CB=C1=CB =C5=D3=D4=D8 > =D4.=C5 =CD=CF=D6=C5=D4 =D3=CF=C4=C5=D2=C1=D6=C1=D4=D8 =D0=D2=CF=C2=C5=CC= =D9 =C9 =C4=D2=D5=C7=C9=C5 =D3=C9=CD=D7=CF=CC=D9 >=20 > #=D0=D2=C9=CD=C5=D2=CE=CF =D4=C1=CB > $file=3D"file name(rus)']['"; >=20 > =CB=C1=CB =D7=C9=C4=CE=CF =C9=DA =CB=CF=C4=C1, =DA=C1=C9=D3=D9=D7=C1=C0 = =D3=D4=C1=D4=D5=D3 =D7=CF=DA=D7=D2=C1=D4=C1. > =D7 =D0=CF=D3=CC=C5=C4=CE=C9=CA =CE=C5=D5=C4=C1=D7=DB=C9=CA=D3=D1 =D2=C1= =DA, =D4=C1=CD =D3=CF=C4=C5=D2=D6=C9=D4=D8=D3=D1 =DE=C9=D3=CC=CF 256 =E4=C1??? > =ED=CF=D6=C5=D4 =CB=D4=CF =D0=CF=C4=D3=CB=C1=D6=C5=D4 =DE=D4=CF =DC=D4=CF= =DA=CE=C1=DE=C9=D4. =E9 =CB=C1=CB =D7=D3=C5 =D6=C5 =D3=C4=C5=CC=C1=D4=D8 = =DE=D4=CF=C2 > =D2=C1=C2=CF=D4=C1=CC=CF? use File::Copy qw(mv); mv $file1 =3D> $file2; --yhCE4sTDB5mqd9YJ Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) iD8DBQFByB5IfBKgtDjnu0YRAjnPAKDI7vrFEk7yHJ/RsIwM7ix9z6L28wCfSjHl buMnOtbqfsCeGGqk1Ob8xQQ= =JvDp -----END PGP SIGNATURE----- --yhCE4sTDB5mqd9YJ--