The problem I am having is with $full
How do I get $login to return its value when I try to assign this scalar
$full
Thanks in advance
#!/util/perl5.static
$hostname = qx(/usr/ucb/hostname);
chomp $hostname;
%hosts = (
crane = hourihj,
runner = paulg,
ice = root,
);
1. I want to be able to create a hostname = user hash table
like this
%hosts = (
sun1 = bobby,
sun2 + ronald,
)
and a scalar like this
$hostname = qx(/usr/ucb/hostname);
2. I want to be able to build a simple sub like this
sub getname {
print $getname{$hostname};
Hi guys I am having trouble trying to figure out how to do a match between
two hashes
basically I have the $login and $gid from the passwd file and the $gid and
$gname fields from
the group file. (I got these from getpwent and getgrent)
#!/util/perl5.static -w
# Build phash
%phash = ();
$gid
--aplogies forgot Subject line
Hi guys I am having trouble trying to figure out how to do a match between
two hashes
basically I have the $login and $gid from the passwd file and the $gid and
$gname fields from
the group file. (I got these from getpwent and getgrent)
#!/util/perl5.static -w
#
can one specicify a time stamp when using FileFind?
use File::Find;
open(OUT, docs2.out);
print Printing To docs2.out..\n;
sub wanted
{
print OUT $File::Find::name\n;
}
find( \wanted, //dfspn1/dfs/shared/CITG);
close(OUT);
Jaime Hourihane
CDC-IXIS
212.891.1935
--
my apologies running low on fuel
I want to get a timestamp on files i.e. last modified i.e. find /tmp -mtime
-1
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 20, 2002 4:34 PM
To: Hourihane, Jaime; [EMAIL PROTECTED]
Subject: RE: Timestamp
Hi I am new to hashes
Can somebody tell me why I can print $KEY but not $VALUE?
==
#!/usr/local/bin
open(GROUP, /etc/group) || die Cannot open:$!\n;
while(GROUP) {
($KEY,$gpass,$ggid,$VALUE) = split(/:+/);
$HASH{$KEY} =
Thanks very much Steve
I was pulling my hair out on this one..
I interpreted the split/:+/ to be one or more ':'
the key work being or
I guess I really need to go back and review regexes
Jaime Hourihane
CDC-IXIS
212.891.1935
-Original Message-
From: Steve Mayer [mailto:[EMAIL
I am having difficulty opening a directory and recursively listing the files
on NT Win32
I can do it on Unix but when I try it on NT with both UNC and drive letter I
get nothing...
Unix
###
!/util/perl5.static -w
use File::Find;
open(OUT, docs.out);
sub wanted
{