#!/usr/bin/perl

 use strict;

 use warnings;

 foreach my $arg(@ARGV)

 {

     print "one is $arg\n";

 }

 # perl t.pl *.txt

 # one is 1.txt

 # one is 2.txt

 my @all_files = glob '*';print "@all_files\n";

 # perl t.pl *.txt

 # 1.txt 2.txt check.pl t.pl

 my @all_txt = glob '*.txt';print "@all_txt\n";

 # perl t.pl *.txt

 # 1.txt 2.txt

 my @all = </hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/*>;

 print "@all\n";

 #/XXX/1.txt /XXX/2.txt /XXX/check.pl /XXX/t.pl

 open TXT,'1.txt';

 my $readhand = 'TXT';

 my @line = readline $readhand;print "$line[4]";

 #·······11111@@##￥￥#……￥%&……%*……&*

 my $way = '/hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/';opendir DIR,$way;

 foreach my $file (readdir DIR)

 {

     next if $file =~ /^\./;print "my fiels has $way$file\n";

 }

 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/2.txt

 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/check.pl

 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/t.pl

 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/1.txt

 my $successful=unlink glob '3.*';print "$successful\n";

 #1

 # ls

 # 1.txt  2.txt  check.pl  t.pl

 foreach my $file (glob "*.txt")

 {

     my $newfile = $file;$newfile =~ s/\.txt$/.in/;

     if (-e $newfile)

     {

         warn "this file exists\n";

     }

     else

     {

         print "successful!,$newfile\n"

     }

 }

 #successful!,1.in

 #successful!,2.in

 my $link = -l 'egg';my $exit = -e 'egg';my $address = readlink 'egg';print "$link\t$exit\t$address\n";

 #my $perladd= readlink '/usr/bin/perl';print "$perladd\n";

 #1

 #

 #2.txt

 my $eight=;my $ten= oct($eight);print "$ten\n";

 #

 my $user = getpwnam 'yuanjingnan';print "$user\n";

 #