Opened by Netspider at 2004-05-07 19:35
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=Netspider,08.05.2004, 17:30]da fällt mir gerade was ein, gibt es eigentlich einen kopierbefehl, so wie bei rename, nur eben kopieren...
ich will nicht unbedingt system() benutzen[/quote]
\n\n
<!--EDIT|Crian|1084176178-->
ich will nicht unbedingt system() benutzen[/quote]
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
NAME
File::Copy - Copy files or filehandles
SYNOPSIS
use File::Copy;
copy("file1","file2");
copy("Copy.pm",\*STDOUT);'
move("/dev1/fileA","/dev2/fileB");
use POSIX;
use File::Copy cp;
$n = FileHandle->new("/a/file","r");
cp($n,"x");'
<!--EDIT|Crian|1084176178-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite