{"id":107,"date":"2004-07-07T11:54:06","date_gmt":"2004-07-07T09:54:06","guid":{"rendered":""},"modified":"2007-07-03T09:31:27","modified_gmt":"2007-07-03T07:31:27","slug":"perl-par-la-pratique","status":"publish","type":"post","link":"http:\/\/www.lookit.org\/blog\/?p=107","title":{"rendered":"Perl par la pratique"},"content":{"rendered":"

Petit tutorial PERL

COURS PERL :<\/strong>
http:\/\/www.med.univ-rennes1.fr\/~poulique\/cours\/perl\/<\/p>\n

—————————————–<\/p>\n

#!\/usr\/bin\/perl
#  af – about files<\/p>\n

print "Please enter file name " if (-t STDIN);
chop ($­­­­­­name = <STDIN>);<\/p>\n

@fdata = stat($­­­­­­name);
@text = ("device","inode","mode","links",
 "user id",
 "group id","device id","size", "accessed",
 "modified","changed","blocksize",
 "block count");<\/p>\n

foreach $­­­­­­k(0..$­­­­­­#text) {
 printf "%-12s",$­­­­­­text[$­­­­­­k];
 print $­­­­­­fdata[$­­­­­­k],"n";
 }<\/p>\n

———————————————-
#!\/usr\/bin\/perl
use Archive::Tar;
use Net::FTP;<\/p>\n

$­­­­­­date=time();
my $­­­­­­ftp_html =
Net::FTP->new('server',Passive=>1,Timeout=>30000),"n";
$­­­­­­ftp_html->login('login','passwd');<\/p>\n

$­­­­­­ftp_html->cwd('\/'),"n";<\/p>\n

        my @fileList2 = $­­­­­­ftp_html->ls('*.gz');
        foreach my $­­­­­­file2 (@fileList2) {
        $­­­­­­ftp_html->delete($­­­­­­file2)
        }<\/p>\n

$­­­­­­ftp_html->cwd('\/CPNgroupe'),"n";
my @fileList = $­­­­­­ftp_html->ls('*.bak');
foreach my $­­­­­­file (@fileList) {
        $­­­­­­mois="2678400";
        $­­­­­­datef=$­­­­­­ftp_html->mdtm($­­­­­­file),"n";
        $­­­­­­sous= $­­­­­­date – $­­­­­­datef;
            if ( $­­­­­­sous > $­­­­­­mois ) {
                $­­­­­­ftp_html->delete($­­­­­­file);
            }
}<\/p>\n

$­­­­­­ftp_html->quit;
——————————————-
$­­­­­­rep= "\/test" ;
opendir R, $­­­­­­rep or die "impossible d'ouvrir le rép. $­­­­­­rep";
@liste=readdir(R);
foreach $­­­­­­f (@liste) {
  next if $­­­­­­f eq "." or $­­­­­­f eq "..";
  $­­­­­­file= "$­­­­­­rep\/$­­­­­­f";
  if (-f $­­­­­­file) {
   (undef,undef,undef,undef,undef,undef,undef,$­­­­­­size,undef,$­­­­­­mtime)=
stat($­­­­­­file);
  print "$­­­­­­file $­­­­­­mtime $­­­­­­sizen";
  $­­­­­­date=time();
  $­­­­­­sous= $­­­­­­date – $­­­­­­mtime;
  print "$­­­­­­sous";
  $­­­­­­huit= "850";
  if ( $­­­­­­sous > $­­­­­­huit ) {
         print "OUAISSSS";
     }
   }
}
closedir R;
——————————————-
use Archive::Tar;
use File::DosGlob 'glob';
use Net::FTP;<\/p>\n

#my @fileList = $­­­­­ftp_html->ls('\/info\/*.gz');i
#$­­­­­ftp_html = Net::FTP->new('server',Passive=>1);
#$­­­­­ftp_html->login(logint',passwordc');
#$­­­­­ftp_html->binary();
#$­­­­­ftp_html->get("d:\/datap\/*.gz","1.gz");
#$­­­­­ftp_html->quit;<\/p>\n

# $­­­­­ftp_html->get($­­­­­file,fp\/$­­­­­file");
# $­­­­­ftp_html->get($­­­­­file,"\/datuipe\/$­­­­­file");
#    $­­­­­ftp_html->delete($­­­­­file);<\/p>\n

#       my @fileList = $­­­­­ftp_html->ls('*.*');
#       foreach my $­­­­­file (@fileList) {
#     $­­­­­test = $­­­­­ftp_html->mdtm($­­­­­file);
#    print "$­­­­­file";
#       }<\/p>\n

my $­­­­­ftp_html = Net::FTP->new('server',Passive=>1);
       $­­­­­ftp_html->login('login','password');
       $­­­­­ftp_html->binary();
       $­­­­­ftp_html->cwd('\/ls'),"n";
       $­­­­­ftp_html->ls('*.*'),"n";
       print $­­­­­ftp_html->ls('*.*'),"n";
$­­­­­ftp_html->quit;
—————————————–
cd \/data\/
rm -fr *<\/p>\n

ncftp -u COMPTE -p 'PASSWORD' SERVER << TEST
bin
#set confirm-close no
cd test\/
get *.*
rm *.*
quit
TEST
—————————————–<\/p>\n","protected":false},"excerpt":{"rendered":"

Petit tutorial PERL<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[8],"tags":[],"class_list":["post-107","post","type-post","status-publish","format-standard","hentry","category-informatique"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pWrTo-1J","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/107","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=107"}],"version-history":[{"count":0,"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/107\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=107"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=107"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lookit.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=107"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}