FW: How does one get returned values from embeded scalars

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, );

re: returning value from subroutine

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};

FW:

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

Matching key values from more than one hash

--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 #

Re: Timestamp and File::find

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 --

RE: Timestamp and File::find

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

Re: Printing values from hashes

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} =

RE: Printing values from hashes

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

Re: File::Find and Platform Capability

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 {