Berkeley CSUA MOTD:Entry 23534
Berkeley CSUA MOTD
 
WIKI | FAQ | Tech FAQ
http://csua.com/feed/
2025/05/25 [General] UID:1000 Activity:popular
5/25    

2002/1/11-12 [Computer/SW/Languages/Perl] UID:23534 Activity:high
1/11    What is the Right Way to check if a program is in the user's path
        from a perl script?  I want to use ci and co in the path otherwise
        use /usr/local/bin/ci,co.  I know klugy ways to do this but was
        wondering what the recommeneded way was.  Thanks!
        \_ $ENV{PATH} .= ":/usr/local/bin";
        \_ `which ci`[motd indent god was here]
            \_ which is horrible. use type as god and steve intended.
        \_ system("ci $flags || /usr/local/bin/ci $flags");
           is the "kludgey" way (oh no, you're using the shell!)
           system('ci', @flags);
           system('/usr/local/bin/ci', @flags) if $? >> 8;
           is slightly more efficient
        \_ Just write yourself a type/which sub in perl:
           sub type {
                   local($dir,@files,$file);
                   return "" unless (defined $_[0] && $_[0] ne "");
                   foreach $dir (split(/:/,$ENV{'PATH'})) {
                              opendir(DH,"$dir") || next;
                              @files = grep(!/^\.\.?$/,readdir(DH));
                              closedir(DH);
                              foreach $file (@files) {
                                 return "$dir/$file" if ($file eq $_[0] &&
                                                         -f "$dir/$file" &&
                                                         -x "$dir/$file");
                                }
                        }
                        return "";
                }
                \_ are you sure there is no perl module that does this already?
                   \_ http://www.cpan.org  Go look and let us know.  Thanks!
                   \_ yeah, let me download yet another totally bizarre
                      perl module from http://cpan.org that was written by a
                      recently civilized shepard in outer mongolia on
                      his linux box and then let me download the 86
                      other modules his module depends on rather than
                      write a few lines of code.
2025/05/25 [General] UID:1000 Activity:popular
5/25    

You may also be interested in these entries...
2008/3/4-7 [Computer/Networking, Computer/SW/Languages/Perl] UID:49324 Activity:moderate
3/4     Does anybody have some code or know of a program that will take a
        network/mask and return the list of address in that CIDR block?
        e.g. "iplist 10.10.10.0/24" and return 10.10.10.0 ... 10.10.10.255
        [I have a way to do this, but it involves distributing a large
        amount of code, which is kind of a hassle. Looking for something
        lightweight and either standard or easdy to rpm/port/yum install.]
	...
2007/9/10 [Computer/SW/Languages/Perl] UID:47986 Activity:low
9/10    Hi.  I'm running a package based linux distro.  Should
        I install perl CPAN modules through the provided packages,
        or through sudo cpan> install modulename etc ?
        Opinions?
        \_ Depends on the package system you're using, you may have to
           deal with both.  I had an experience where I installed via
	...
2007/8/7-13 [Computer/SW/Languages/Perl, Computer/SW/Unix] UID:47555 Activity:nil
8/7     I'm trying to figure out whether it's possible for get wget to
        authenticate to a web page protected by a login form ('post'
        method to send username/pass, and cookies.)  Cookies don't seem
        to be the problem, with --save-cookies and --keep-session-cookies
        but getting the username/password submitted isn't doing it.  On
        this particular page, getting to a link, let's say 'example.aspx',
	...
2006/6/29-7/3 [Computer/SW/Languages/Perl] UID:43527 Activity:nil
6/29    Visual Programming in Perl:
        http://search.cpan.org/dist/Acme-EyeDrops/lib/Acme/EyeDrops.pm
	...
2005/9/2-3 [Computer/SW/Languages/Perl] UID:39466 Activity:nil
9/2     Hey motd I used to have perl w/DBI 1.42 & DBD 2.9003. After
        upgrading Perl, DBI 1.48, & DBD 3.0002_1 I'm seeing something
        really weird. The following used to work:
        $dbh=$DBI->prepare("INSERT INTO data VALUES(\?)");
        for ($i=0; $i<10; $i++) {
          if (!$dbh->execute($i)) {
	...
2005/8/31 [Computer/SW/Languages/Perl] UID:39376 Activity:nil
8/31    Looking for an XML parser for Perl, preferably one that
        doesn't require installation (something already built in).
        If it's not already built in, I prefer something that doesn't
        require C compilation, and that I can just stick the *.pm
        to use. I'm looking for portability, not performance. Thanks.
        \_ What's wrong with using CPAN?
	...
2004/4/10-12 [Computer/SW/Languages/Perl] UID:13128 Activity:nil
4/10    In perl, how do I get time precise to the milisecond? The CPAN module
        requires recompilation and root access to install it, I'm looking for
        something more portable. Thanks!
        \_ If you need to know the time, there's no portable way to do it
           without modules.  However, if you just want a sub-second delay,
           you can do it with select -- for example, select "", "", "", 0.1;
	...
2004/4/12 [Computer/SW/Languages/Perl] UID:13154 Activity:nil
4/12    What's a good perl module (cpan) that strips off all the html
        tags and javascript crap? And perhaps be smart enough to strip
        off menus and ads? Thanks.
        \_ lynx -dump <pagename>
        \_ s/<[^>]*>//g
	...
2004/3/29-30 [Computer/SW/OS/FreeBSD, Computer/SW/OS/OsX] UID:12920 Activity:high
3/29    I'm installing binaries for both OsX and Linux and I'd like all the
        users to have /usr/bin/<files> to be accessible. I thought about
        /usr/bin/<files> for generic stuff (like scripts) and
        /usr/bin/<platform>/<files> for platform specific things.
        What is the correct approach to this?
        \_ there are obviously several ways to do this, and "correct" is mostly
	...
2004/3/30 [Computer/SW/OS/FreeBSD, Computer/SW/OS/OsX] UID:29888 Activity:high
3/29      I'm installing binaries for both OsX and Linux and I'd like all the
          users to have /usr/bin/<files> to be accessible. I thought about
          /usr/bin/<files> for generic stuff (like scripts) and
          /usr/bin/<platform>/<files> for platform specific things.
          What is the correct approach to this?
        \_ there are obviously several ways to do this, and "correct" is mostly
	...
2003/8/29-2004/2/14 [Computer/SW/Languages/Perl, Computer/SW/Unix] UID:12252 Activity:nil
2/13    Does perl have a "diff" facility? I have something that requires a
        lot of diff but file I/O using unix diff would be too slow. Thanks.
        \_ Text::Diff?  Really.  You could search cpan for this sort of thing.
	...
2003/9/9 [Computer/SW/Languages/Perl] UID:10121 Activity:high
9/8     Any recommendations for a text-based Yahoo instant messanger app
        for linux that logs.
        \_ Yahoo::Messenger
           \_ what do you mean, there isn't a CPAN module by that name.
              \_ Sorry, Net::YahooMessenger, but really, you could have
                 tried searching.
	...
Cache (142 bytes)
www.cpan.org
CPAN Logo Comprehensive Perl Archive Network 2004-05-02 online since 1995-10-26 2341 MB 243 mirrors 3589 authors 6306 modules Welcome to CPAN!
Cache (132 bytes)
cpan.org
Comprehensive Perl Archive Network 2004-05-14 online since 1995-10-26 2357 MB 243 mirrors 3623 authors 6384 modules Welcome to CPAN!