Different Node status (madtoperl)

Different Node status

madtoperl

created: 2006-08-05 05:52:25

perlmonks

node
author

prlmnks

node
author

Hi Monks,

It's time for me to put another one of my imaginatoin.Please read this one and comment about it.

#!/bin/perl-w
use strict;
my $searchpath = 'www.perlmonks.com';
my $session = 'seekers of perl wisdom';
my $status="";
foreach my $node (glob("$searchpath/$session/newnode")) {
my @files  = split(" ",$node);
		foreach (@files){
				chomp;
				if($_ =~ /exciting$/){
							$status = 'Approved';
				}elsif($_ =~ /notmatching$/){
							$status = 'considered';
				}elsif($_ =~ /othertopic$/){
							$status = 'Marked as OT';
				}
		}
}

Re: Different Node status

talexb

created: 2006-08-05 23:20:53

perlmonks

prlmnks

This is a complete waste of time.

Alex / talexb / Toronto

"Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds

Re^2: Different Node status

Anonymous Monk

created: 2006-08-08 02:58:39

perlmonks

prlmnks

nothing is waste in life mr.talexb

Re: Different Node status

davorg

created: 2006-08-14 06:16:18

perlmonks

prlmnks

#!/bin/perl-w

What is "perl-w"?

Please at least run your code before posting it here.

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

Re^2: Different Node status

jesuashok

created: 2006-08-17 02:30:09

perlmonks

prlmnks

Hi [davorg],

I have executed the code given in poem by [madtoperl]. It runs successfully. Following are my system details

uname -a
SunOS chico 5.9 Generic_118558-09 sun4u sparc SUNW,Ultra-80

output of perl -V

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.8, archname=sun4-solaris
    uname='sunos localhost 5.8 sun4u sparc sunw,ultra-1 '
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-xO3 -xdepend', gccversion=
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =''
    libpth=/lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-R /usr/perl5/5.00
503/sun4-solaris/CORE'
    cccdlflags='-KPIC', lddlflags='-G'




Characteristics of this binary (from libperl):
  Built under solaris
  Compiled at Apr  6 2002 14:44:41
  @INC:
    /usr/perl5/5.00503/sun4-solaris
    /usr/perl5/5.00503
    /usr/perl5/site_perl/5.005/sun4-solaris
    /usr/perl5/site_perl/5.005
    .

"Keep pouring your ideas"