User input - Perl need Help Post: 302556723

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

geting user input from php and using perl for execution

I am using festival speech synthesis system and I would like to allow user input in a browser. This will be taken by a php page which is then supposed to pass the input text to a perl script. The perl script should pass this text to the festival engine by executing a unix command. this in turn...

2. Shell Programming and Scripting

Executing program with Perl script but needs user input

Hello, I'm running a perl script to execute a program through my Unix command line. The program requires a user input but I want to automatically have perl input the string. Is there a way to do this? Thanks

3. Shell Programming and Scripting

Accepting user input and arguments in PERL

Hi All, Can we pass arguments while calling the perl script and as well as ask user input during execution of the script? My program is as below: I am passing arg1 and arg2 as argements to test.pl ]./test.pl arg1 arg2 Inside the test.pl I have : print "Do you want a name ? (y/n) : ";...

4. Shell Programming and Scripting

List all file that match user input perl

Hi, I want to list all file that match user input ( specified shell wildcard) but when I compile it dont list me #!/usr/bin/perl -w print "Enter Advance Search Function: "; chomp ($func = <STDIN>); my @files = glob("$func"); foreach my $file (@files) { print "$file\n";...

5. Shell Programming and Scripting

every time user input create array perl

Hi, How to create array every time user input and store user input and display all array print " Enter input " my @input = split(' ', $input) chmop($input = <STDIN>; foreach ($input) { @array= @input; } print @array"\n";

6. Shell Programming and Scripting

Validating uppercase/lowercase of user input with perl compared to unix folders

Hi, I need to copy files from a source directory to a destination directory in unix. I'm using the file::copy for the actual copy. The problem is that the source and dest directories are supplied by different users, who might type the name of the directories in various combinations of lower...

7. Shell Programming and Scripting

user input in perl?

Please tell me how to write a perl script that asks the user to enter words and that passes them to a variable. In bash, the "read" command would achieve such user interaction. #!/bin/bash read -p "Enter files: " vFiles However, I am looking for perl version of something equivalent...

8. Shell Programming and Scripting

User input in perl code

Hello friends . I am newbie to perl scripting but still managed to write a code but i am stuck at a place where i need help . Below is the code and can someone help me in taking user input for changing the font size for a html table .Thank you in advance #!/bin/ksh echo " Enter the Directory...

9. Shell Programming and Scripting

Perl to read user input

I am creating a bash that uses perl . The below code closes before the input is entered. If I run the perl as a .pl it is fine. What am I doing wrong? Thank you :). #!/bin/bash cd 'C:\Users\cmccabe\Desktop\wget' wget -O getCSV.txt http://xxx.xx.xxx.xxx/data/getCSV.csv print...

10. Shell Programming and Scripting

Checking the user input in perl for characters and length

My question is basically as the title says. How can I check a user inputted string is only certain characters long (for example, 3 characters long) and how do I check a user inputted string only contains certain characters (for example, it should only contain the characters 'u', 'a', 'g', and 'c')...

LEARN ABOUT DEBIAN

text::context::eitherside

Text::Context::EitherSide(3pm)				User Contributed Perl Documentation			    Text::Context::EitherSide(3pm)

NAME

       Text::Context::EitherSide - Get n words either side of search keywords

SYNOPSIS

	 use Text::Context::EitherSide;

	 my $text = "The quick brown fox jumped over the lazy dog";
	 my $context = Text::Context::EitherSide->new($text);

	 $context->as_string("fox") # "... quick brown fox jumped over ..."

	 $context->as_string("fox", "jumped")
	   # "... quick brown fox jumped over the ..."

	 my $context = Text::Context::EitherSide->new($text, context => 1);
	   # 1 word on either side

	 $context->as_string("fox", "jumped", "dog");
	   # "... brown fox jumped over ... lazy dog",

       Or, if you don't believe in all this OO rubbish:

	 use Text::Context::EitherSide qw(get_context);
	 get_context(1, $text, "fox", "jumped", "dog")
	       # "... brown fox jumped over ... lazy dog"

DESCRIPTION

       Suppose you have a large piece of text - typically, say, a web page or a mail message. And now suppose you've done some kind of full-text
       search on that text for a bunch of keywords, and you want to display the context in which you found the keywords inside the body of the
       text.

       A simple-minded way to do that would be just to get the two words either side of each keyword. But hey, don't be too simple minded, because
       you've got to make sure that the list doesn't overlap. If you have

	   the quick brown fox jumped over the lazy dog

       and you extract two words either side of "fox", "jumped" and "dog", you really don't want to end up with

	   quick brown fox jumped over brown fox jumped over the the lazy dog

       so you need a small amount of smarts. This module has a small amount of smarts.

EXPORTABLE

   get_context
       This is primarily an object-oriented module. If you don't care about that, just import the "get_context" subroutine, and call it like so:

	   get_context($num_of_words, $text, @words_to_find)

       and you'll get back a string with ellipses as in the synopsis. That's all that most people need to know. But if you want to do clever
       stuff...

METHODS

   new
	   my $c = Text::Context::EitherSite->new($text [, context=> $n]);

       Create a new object storing some text to be searched, plus optionally some information about how many words on either side you want. (If
       you don't like the default of 2.)

   context
	   $c->context(5);

       Allows you to get and set the number of the words on either side.

   as_sparse_list
	   $c->as_sparse_list(@keywords)

       Returns the keywords, plus n words on either side, as a sparse list; the original text is split into an array of words, and non-contextual
       elements are replaced with "undef"s. (That's not actually how it works, but conceptually, it's the same.)

   as_list
	   $c->as_list(@keywords)

       The same as "as_sparse_list", but single or multiple "undef"s are collapsed into a single ellipsis:

	   (undef, "foo", undef, undef, undef, "bar")

       becomes

	   ("...", "foo", "...", "bar")

   as_string
	   $c->as_string(@keywords)

       Takes the "as_list" output above and joins them all together into a string. This is what most people want from "Text::Context::EitherSide".

   EXPORT
       "get_context" is available as a shortcut for

	  Text::Context::EitherSide->new($text, context => $n)->as_string(@words);

       but needs to be explicitly imported. Nothing is exported by default.

SEE ALSO

       Text::Context is an even smarter way of extracting a contextual string.

AUTHOR

       Current maintainer: Tony Bowden

       Original author: Simon Cozens

BUGS and QUERIES
       Please direct all correspondence regarding this module to:
	 bug-Text-Context-EitherSide@rt.cpan.org

COPYRIGHT AND LICENSE

       Copyright 2002-2005 by Kasei Limited, http://www.kasei.com/

       You may use and redistribute this module under the terms of the Artistic License 2.0.

       http://www.perlfoundation.org/artistic_license_2_0

perl v5.10.0							    2009-05-04					    Text::Context::EitherSide(3pm)