my script Re: how would you do this?# Unix - 噫吁兮，危乎高哉
c*y
1 楼
several ppl asked for my code so i'm posting my shabby-but-worked code here
any improvement suggestion are welcome
any improvement suggestion are welcome
a*n
2 楼
This one will not work for the files in any level subdirectories...
【在 c***y 的大作中提到】
: several ppl asked for my code so i'm posting my shabby-but-worked code here
: any improvement suggestion are welcome
【在 c***y 的大作中提到】
: several ppl asked for my code so i'm posting my shabby-but-worked code here
: any improvement suggestion are welcome
c*y
3 楼
nod, only works for 1 dir now, i'll update it later to push all the subdir to
an array, then work through the array, b/c i only care the duplicates in
the same dir.
【在 a**n 的大作中提到】
: This one will not work for the files in any level subdirectories...
an array, then work through the array, b/c i only care the duplicates in
the same dir.
【在 a**n 的大作中提到】
: This one will not work for the files in any level subdirectories...
c*y
4 楼
or does anyone know a better idea? maybe develops a dir tree, than work on
each node on the tree?
【在 c***y 的大作中提到】
: nod, only works for 1 dir now, i'll update it later to push all the subdir to
: an array, then work through the array, b/c i only care the duplicates in
: the same dir.
each node on the tree?
【在 c***y 的大作中提到】
: nod, only works for 1 dir now, i'll update it later to push all the subdir to
: an array, then work through the array, b/c i only care the duplicates in
: the same dir.
a*n
5 楼
change part of code to the new code, and let it to all sub-dirs:
#################Your code ##################
# put all files in an array
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
# put all files in an array
while (defined($file = readdir(DIR))) {
push @files, $file;
}
#############################################
##################New Code ###################
push @dirlist $dirname;
while(defined($curdir=pop(@dirlist))){
opendir(DIR, $curdir) or die "cannot open $c
【在 c***y 的大作中提到】
: or does anyone know a better idea? maybe develops a dir tree, than work on
: each node on the tree?
#################Your code ##################
# put all files in an array
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
# put all files in an array
while (defined($file = readdir(DIR))) {
push @files, $file;
}
#############################################
##################New Code ###################
push @dirlist $dirname;
while(defined($curdir=pop(@dirlist))){
opendir(DIR, $curdir) or die "cannot open $c
【在 c***y 的大作中提到】
: or does anyone know a better idea? maybe develops a dir tree, than work on
: each node on the tree?
t*c
6 楼
If the directory list need to be printed, I think it's better to use a hash
table %counter to count the number of times the filename appears:
####################################################################
my (%counter,%detail,@dirlist,$filename,$curdir);
# put all files in the hashes according to their filenames
push @dirlist,$dirname;
while(defined($curdir=pop(@dirlist))){
opendir(DIR, $curdir) or die "cannot open $curdir $!\n";
while (defined ($filename = readdir(DIR)))
{
if
【在 a**n 的大作中提到】
: change part of code to the new code, and let it to all sub-dirs:
: #################Your code ##################
: # put all files in an array
: opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
: # put all files in an array
: while (defined($file = readdir(DIR))) {
: push @files, $file;
: }
: #############################################
: ##################New Code ###################
table %counter to count the number of times the filename appears:
####################################################################
my (%counter,%detail,@dirlist,$filename,$curdir);
# put all files in the hashes according to their filenames
push @dirlist,$dirname;
while(defined($curdir=pop(@dirlist))){
opendir(DIR, $curdir) or die "cannot open $curdir $!\n";
while (defined ($filename = readdir(DIR)))
{
if
【在 a**n 的大作中提到】
: change part of code to the new code, and let it to all sub-dirs:
: #################Your code ##################
: # put all files in an array
: opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
: # put all files in an array
: while (defined($file = readdir(DIR))) {
: push @files, $file;
: }
: #############################################
: ##################New Code ###################
c*y
7 楼
cool! thanks~~
one problem: stat(9) works fine on Unix, but when I put the script on
Redhat Advanced Server 3, the last modified time returns the earlist
date redhat can handle:
Found Duplicate File:
call_1.html Wed Dec 31 18:00:00 1969
Call_1.html Wed Dec 31 18:00:00 1969
and stat call_1.html directly returns the correct timestamp
anyone has any idea?
【在 t**c 的大作中提到】
: If the directory list need to be printed, I think it's better to use a hash
: table %counter to count the number of times the filename appears:
: ####################################################################
: my (%counter,%detail,@dirlist,$filename,$curdir);
: # put all files in the hashes according to their filenames
: push @dirlist,$dirname;
: while(defined($curdir=pop(@dirlist))){
: opendir(DIR, $curdir) or die "cannot open $curdir $!\n";
: while (defined ($filename = readdir(DIR)))
: {
one problem: stat(9) works fine on Unix, but when I put the script on
Redhat Advanced Server 3, the last modified time returns the earlist
date redhat can handle:
Found Duplicate File:
call_1.html Wed Dec 31 18:00:00 1969
Call_1.html Wed Dec 31 18:00:00 1969
and stat call_1.html directly returns the correct timestamp
anyone has any idea?
【在 t**c 的大作中提到】
: If the directory list need to be printed, I think it's better to use a hash
: table %counter to count the number of times the filename appears:
: ####################################################################
: my (%counter,%detail,@dirlist,$filename,$curdir);
: # put all files in the hashes according to their filenames
: push @dirlist,$dirname;
: while(defined($curdir=pop(@dirlist))){
: opendir(DIR, $curdir) or die "cannot open $curdir $!\n";
: while (defined ($filename = readdir(DIR)))
: {
t*c
8 楼
try to add the full path to the filename?
【在 c***y 的大作中提到】
: cool! thanks~~
: one problem: stat(9) works fine on Unix, but when I put the script on
: Redhat Advanced Server 3, the last modified time returns the earlist
: date redhat can handle:
: Found Duplicate File:
: call_1.html Wed Dec 31 18:00:00 1969
: Call_1.html Wed Dec 31 18:00:00 1969
: and stat call_1.html directly returns the correct timestamp
: anyone has any idea?
【在 c***y 的大作中提到】
: cool! thanks~~
: one problem: stat(9) works fine on Unix, but when I put the script on
: Redhat Advanced Server 3, the last modified time returns the earlist
: date redhat can handle:
: Found Duplicate File:
: call_1.html Wed Dec 31 18:00:00 1969
: Call_1.html Wed Dec 31 18:00:00 1969
: and stat call_1.html directly returns the correct timestamp
: anyone has any idea?
相关阅读
how to forward emails?请问哪里有Unix下载？[转载] undefined reference to 'grBufferSwap'solaris下可以玩联众不?what is the objdump map file formathow to implement background process using execl()[转载] Ftp 上传文件的问题Solaris的中文支持?help on job running !!CHEATING === Re: 看看我的第一个小script为什么不工作xemacsanybody debuged MPI programs?beginner's question: Emacs vs. vihelp me with a console opening problemhelp for g77[转载] HOw to use Emacs as Xterm?My thought Re: beginner's question: Emacs vs. vi同时运行sshd和rshd如何config DVD in solaris?[转载] Beautify chinese display in Emacs?