The scipt was the command line shown
below.
I have received a suggestion from Chris P.
(THANKS, Chris) to use the perl script shown below - the problem is that
my a.lst as used for input is formatted like this:
"/path/to/file/file name.doc"
"/path/to/file/file name.doc"
"/path/to/file/file name.doc"
"/path/to/file/file name.doc"
"/path/to/file/file name.doc"
The problem with my a.lst is that after
the closing ", there may or may not be trailing white space. If there
is, it's not allowing the match, and therefore the compare fails.
Any ideas how to get perl to ignore white
space after the closing " or how I can strip this off the end. (BUT NOT
OUT OF THE MIDDLE - some of my file names in the a.lst are file ::SPACE::
::SPACE:: :SPACE:: name.doc - or similar.
Thanks,
M
Chris' script here:
#!/usr/bin/perl
$a = '/export/home/oracle/a.lst';
open(FILE, $a) or die "Can't open
file: $!\n";
@lines = <FILE>;
close FILE;
$exists =
'/export/home/oracle/exists.txt';
open(EXISTS, ">$exists") or
die "Couldn't open exists.txt for writing: $!\n";
$nonexist =
'/export/home/oracle/nonexist.txt';
open(NONEXIST, ">$nonexist")
or die "Couldn't open nonexists.txt for
writing: $!\n";
foreach (@lines) {
$_ =~ s/"//g;
chomp;
if (-e $_) {
print "$_ exists\n";
print EXISTS "$_\n";
} else {
print "$_ doesn't exist\n";
print NONEXIST "$_\n";
}
}
close EXISTS;
close NONEXISTS;
-----Original Message-----
From:
redhat-list-bounces@xxxxxxxxxx [mailto:redhat-list-bounces@xxxxxxxxxx] On Behalf Of Dege, Robert C.
Sent: Tuesday, May 04, 2004 11:34
AM
To: 'General Red Hat Linux
discussion list'
Subject: RE: Unix Scripting
Question
Can you post your script?
-----Original
Message-----
From: Cupp Michael E Contr
AFRL/DIB [mailto:Michael.Cupp@xxxxxxxxxxxx]
Sent: Tuesday, May 04, 2004 11:03
AM
To: 'General Red Hat Linux
discussion list'
Subject: RE: Unix Scripting
Question
Still no luck -
servername $for foo in
`cat bb.lst` ^Jdo^Jecho $foo^Jdone
"/apps/htdocs/afrl/EBS/microsite/8583/COF\
Summary\
Apr03\
v2_2.ppt"
"/apps/htdocs/afrl/EBS/microsite/8583/Century\
of\
Flight\
\
Award\
-\
15Jan03_1.ppt"
servername $cat bb.lst
"/apps/htdocs/afrl/EBS/microsite/8583/COF\
Summary\ Apr03\ v2_2.ppt"
"/apps/htdocs/afrl/EBS/microsite/8583/Century\
of\ Flight\ \ Award\ -\ 15Jan03_1.ppt"
-----Original Message-----
From:
redhat-list-bounces@xxxxxxxxxx [mailto:redhat-list-bounces@xxxxxxxxxx] On Behalf Of Dege, Robert C.
Sent: Tuesday, May 04, 2004 10:56
AM
To: 'General Red Hat Linux
discussion list'
Subject: RE: Unix Scripting
Question
Using
sed, you first need to escape the space, and then escape the back-slash.
-----Original
Message-----
From: Cupp Michael E Contr
AFRL/DIB [mailto:Michael.Cupp@xxxxxxxxxxxx]
Sent: Tuesday, May 04, 2004 10:51
AM
To: 'General Red Hat Linux
discussion list'
Subject: RE: Unix Scripting
Question
How
would I do that - :g/ /s/\ /g doesn't seem to work.
-----Original Message-----
From:
redhat-list-bounces@xxxxxxxxxx [mailto:redhat-list-bounces@xxxxxxxxxx] On Behalf Of Dege, Robert C.
Sent: Tuesday, May 04, 2004 10:41
AM
To: 'General Red Hat Linux
discussion list'
Subject: RE: Unix Scripting
Question
Your
problem could be that you need to escape the spaces in the file names prior to
running your test.
Modify
your a.lst file & replace all spaces ' ' with slash space '\ '
-----Original
Message-----
From: Cupp Michael E Contr
AFRL/DIB [mailto:Michael.Cupp@xxxxxxxxxxxx]
Sent: Tuesday, May 04, 2004 10:26
AM
To: 'redhat-list@xxxxxxxxxx'
Subject: Unix Scripting Question
I
have a file (a.lst) that has a list of fully pathed filenames, 1 per line - in
this format:
"/path/to/the/name_of_file.doc"
"/path/to/the/other/name of the doc noting spaces.doc"
I need to know how I can loop through this file, a.lst, and for each entry,
perform a test -s on it. If it exists, I want to put the entry into exists.txt,
if it does not, I want to put the entry in noexist.txt -
Can someone please help me? (I've tried for foo in `cat a.lst`, but due to the
spaces in 90% of the filenames, it pukes, as it appears to be using space as
the delimiter)
Thanks again,
Michael ![]( "cool")
