PERL - traverse sub directories and get test case results Post: 302486493

8 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Fastest way to traverse through large directories

Hi! I have thousands of sub-directories, and hundreds of thousands of files in them. What is the fast way to find out which files are older than a certain date? Is the "find" command the fastest? Or is there some other way? Right now I have a C script that traverses through and checks...

2. HP-UX

Different results from awk, sed, tr in different directories???

I cannot explain why it gives different results when I try the awk, sed, tr command combination with the same input. (aondufd1)psoftfs:/aon/dev/psoft/FSTST88/autosys>echo ${MailFile} + echo mfint003pr.in1* mfint003pr.in1* (aondufd1)psoftfs:/aon/dev/psoft/FSTST88/autosys/scripts>echo ${MailFile}...

3. Programming

Ignore case in a test?

How do I ignore the case in an if condition..? EDIT: I put this in the wrong board...this is a linux script. if then echo "Same name." else echo "Different name." fi

4. Shell Programming and Scripting

find in given path do not want to traverse to its sub-directories

Hi All, My UNIX Version is: OS Name Release Version AIX appma538 3 5 I want to find certain files with some criterias under the given path. At the same time i want to find the files which resides under the given directory, but normal find traverse to its sub-directories...

5. Shell Programming and Scripting

Prefixing test case methods with letter 'test'

Hi, I have a Python unit test cases source code file which contains more than a hundred test case methods. In that, some of the test case methods already have prefix 'test' where as some of them do not have. Now, I need to add the string 'test' (case-sensitive) as a prefix to those of the...

6. OS X (Apple)

OS X 'find' nogroup/nouser doesn't traverse directories?

flamingo:~ joliver$ sudo find / -nogroup find: /dev/fd/4: No such file or directory find: /home: No such file or directory find: /Library: No such file or directory find: /net: No such file or directory find: /Network: No such file or directory find: /private: No such file or directory find:...

7. Shell Programming and Scripting

Trying to test for both upper and lower case directories

I am trying to get a script to print out whether a directory is lowercase uppercase or both. This is what I've got so far: echo -e read "enter name" read server for DIR in $(find /tmp/$server -type d -prune | sed 's/\.\///g');do if expr match "$server" "*$" > /dev/null; then echo "$server -...

8. Shell Programming and Scripting

Traverse through directories

Hi all, Require help in completing a shell script. i do have a total of 90 directories where in we have different sub-directories and one of the sub directory named logs I need to go inside the logs subdirectory and check if a particular log is present or not. for example below is the...

LEARN ABOUT DEBIAN

www::wikipedia

WWW::Wikipedia(3pm)					User Contributed Perl Documentation				       WWW::Wikipedia(3pm)

NAME

       WWW::Wikipedia - Automated interface to the Wikipedia

SYNOPSIS

	 use WWW::Wikipedia;
	 my $wiki = WWW::Wikipedia->new();

	 ## search for 'perl'
	 my $result = $wiki->search( 'perl' );

	 ## if the entry has some text print it out
	 if ( $result->text() ) {
	     print $result->text();
	 }

	 ## list any related items we can look up
	 print join( "
", $result->related() );

DESCRIPTION

       WWW::Wikipedia provides an automated interface to the Wikipedia <http://www.wikipedia.org>, which is a free, collaborative, online
       encyclopedia. This module allows you to search for a topic and return the resulting entry. It also gives you access to related topics which
       are also available via the Wikipedia for that entry.

INSTALLATION

       To install this module type the following:

	   perl Makefile.PL
	   make
	   make test
	   make install

METHODS

   new()
       The constructor. You can pass it a two letter language code, or nothing to let it default to 'en'.

	   ## Default: English
	   my $wiki = WWW::Wikipedia->new();

	   ## use the French wiki instead
	   my $wiki = WWW::Wikipedia->new( language => 'fr' );

       WWW::Wikipedia is a subclass of LWP::UserAgent. If you would like to have more control over the user agent (control timeouts, proxies ...)
       you have full access.

	   ## set HTTP request timeout
	   my $wiki = WWW::Wikipedia->new();
	   $wiki->timeout( 2 );

       You can turn off the following of wikipedia redirect directives by passing a false value to "follow_redirects".

   language()
       This allows you to get and set the language you want to use. Two letter language codes should be used. The default is 'en'.

	   my $wiki = WWW::Wikipedia->new( language => 'es' );

	   # Later on...
	   $wiki->language( 'fr' );

   follow_redirects()
       By default, wikipeda redirect directives are followed. Set this to false to turn that off.

   search()
       Which performs the search and returns a WWW::Wikipedia::Entry object which you can query further. See WWW::Wikipedia::Entry docs for more
       info.

	   $entry = $wiki->search( 'Perl' );
	   print $entry->text();

       If there's a problem connecting to Wikipedia, "undef" will be returned and the error message will be stored in "error()".

   random()
       This method fetches a random wikipedia page.

   error()
       This is a generic error accessor/mutator. You can retrieve any searching error messages here.

TODO

       o   Clean up results. Strip HTML.

       o   Watch the development of Special:Export XML formatting, eg: http://en.wikipedia.org/wiki/Special:Export/perl

SEE ALSO

       o   LWP::UserAgent

AUTHORS

       Ed Summers <ehs@pobox.com>

       Brian Cassidy <bricas@cpan.org>

COPYRIGHT AND LICENSE

       Copyright 2003-2011 by Ed Summers

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.1							    2011-04-05						       WWW::Wikipedia(3pm)