in reply to Re: ~username expansion
in thread ~username expansion

Sadly, it appears I don't have File::Glob. It's a fairly old Perl installation, and I've noticed deficiencies fairly frequently.

Thanks anyway for your input.

Replies are listed 'Best First'.
Re^3: ~username expansion
by superfrink (Curate) on Nov 01, 2004 at 04:15 UTC
    I'm not familiar with File::Glob but perl does have a built in glob which I have used it in the past.

    Also I just looked at the docs for File::Glob and it looks like bsd_glob allows for flags which the built in glob does not. However the perldoc for glob notes this:
    Beginning with v5.6.0, this operator is implemented using the standard "File::Glob" extension. See File::Glob for details.
    In fact on my system (Perl v5.8.0, Slackware 9.1) glob matches the tilde in my username: 
    [frink@truth]$perl -e 'print map $_ .= "\n" , glob("~frink/tmp/*");'  
+     
/home/frink/tmp/137-03.mp3
/home/frink/tmp/156-03.mp3
/home/frink/tmp/2004-01.pdf
/home/frink/tmp/2004-01.xls
/home/frink/tmp/audio
[frink@truth]$

    [download]
[reply]
[d/l]
Re^3: ~username expansion
by tachyon (Chancellor) on Nov 01, 2004 at 11:48 UTC 
    grep username: /etc/passwd | cut -d: -f6
perl -le 'print glob "~username"';

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom