[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

20030422: upgrade of ldm.meteo.psu.edu to 6.0.10

Art,

>Date: Tue, 22 Apr 2003 11:43:28 -0400 (EDT)
>From: "Arthur A. Person" <address@hidden>
>Organization: Penn State
>To: Steve Emmerson <address@hidden>
>Subject: Re: 20030422: upgrade of ldm.meteo.psu.edu to 6.0.10 

The above message contained the following:

> Here's what I have:
> 
> cd ~ldm
> [ldm@ldm ~]$ printenv LDMHOME
> /usr/local/ldm
> [ldm@ldm ~]$ ls -l data
> lrwxrwxrwx    1 ldm      ldmsys         14 Sep 23  2002 data -> /data/ldm/data
> [ldm@ldm ~]$ ls -la /data/ldm/data
> total 7385924
> drwxr-xr-x    2 ldm      ldmsys       4096 Apr 22 11:42 .
> drwxr-xr-x    4 ldm      ldmsys       4096 Sep 23  2002 ..
> -rw-rw-r--    1 ldm      ldmsys          0 Apr 22 11:42 junk.dat
> -rw-rw-r--    1 ldm      ldmsys   4273569792 Mar 24 09:05 ldm.pq
> -rw-rw-r--    1 ldm      ldmsys   3282219008 Sep 25  2002 ldm.pq.old
> 
> I think this is what you are describing

Yes.  That's it.

> but it doesn't work.  I decided to
> do a little more testing using the following script:

> #!/usr/bin/perl
> #    $pq_path = "/usr/local/ldm/data/ldm.pq";
> #    $pq_path = "/data/ldm/data/ldm.pq";
>     $pq_path = "/data/ldm/data/junk.dat";
>     print "$pq_path\n";
> 
>     if (! -f $pq_path) {
>        print "product queue, $pq_path, does not exist\n";
>     }
>     else { print "Okay.\n"; }
> 
> and found that when the first two pq_path definitions were used (the
> second one NOT a link), if failed to test positive for the file.  So, the
> problem has nothing to do with links.  The third one worked okay (the one
> testing for the dummy junk.dat file).  My conclusion is that the perl -e
> and -f tests don't work on files > 2GB.  My perl is v5.6.1.  What do you
> think?

I think I'm beginning to hate perl.  :-)

The perl test works on one of our systems with a large product queue
with the same version of perl as yours:

$ uname -srm
SunOS 5.9 sun4u
$ ls -l ldm.pq
-rw-rw-r--   1 ldm      ustaff   4110229504 Apr 18 12:15 ldm.pq
$ perl -v
This is perl, v5.6.1 built for sun4-solaris-64int
...
$ perl
if (! -f "ldm.pq") {
    print "no\n";
} else {
    print "yes\n";
}
yes
$ 

(The perl script is terminated by entering a control-D).

Try the above test on your system.  What does it do?

> Arthur A. Person
> Research Assistant, System Administrator
> Penn State Department of Meteorology
> email:  address@hidden, phone:  814-863-1563

Regards,
Steve Emmerson