Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: STDIN-perl
Top Forums Shell Programming and Scripting STDIN-perl Post 302418502 by durden_tyler on Tuesday 4th of May 2010 12:39:50 PM
Old 05-04-2010
Quote:
Originally Posted by bigben1220
...
How do I make the info that someone inputs from @userArray = <STDIN>, a new array?

Code:
@userArray = <STDIN>;
while ()
{
        chomp;
        last if ! /\d/;
        push(@userArray,$_);
}
my($sum,$avg) = &sumIt(@userArray);
print "Total:$sum\nAverage:$avg\n";

Im trying to capture what the user is inputing in the <STDIN>.
...
Not sure what exactly you are looking for, but does this help ?

Code:
$
$
$ perl -lne 'push @x, $_;
             END {print "The input array is as follows:"; foreach (@x){print}
                  print "Sum     = ", eval(join("+",@x));
                  print "Average = ", eval(join("+",@x))/($#x+1);
                 }'
10
20
30
40
^Z
The input array is as follows:
10
20
30
40
Sum     = 100
Average = 25
$
$

The numbers in blue are input by the user at the command-line.
The text in red is a "Control+Z" and then the "Return" key, and it is an indication to the Perl program that the input has been terminated.
The text in green is printed by the Perl program.

tyler_durden
 

10 More Discussions You Might Find Interesting

1. Programming

stdin

hi, how does a program know whether some data are available from stdin? I would like to make a program which could read its data from stdin and _if_there_is_nothing_at_stdin_ from a file which name is given as an argument. If there is nothing in stdin and no filename is given as argument,... (2 Replies)
Discussion started by: marquis
2 Replies

2. Shell Programming and Scripting

redirection stdin

hello all, I need to create a password change utility for a database. I need to gather at the command line the username, password and database sid. I have the program currently doing this. What I would like to do is not have the new password appear on the screen when I do my read command.... (2 Replies)
Discussion started by: whited05
2 Replies

3. Shell Programming and Scripting

echo with stdin

Why doesnt echo output the contents of the file abc.txt as shown below ? chid@athena:~$ cat abc.txt sssss chid@athena:~$ echo < abc.txt chid@athena:~$ (6 Replies)
Discussion started by: systemsb
6 Replies

4. Shell Programming and Scripting

redirect STDIN

can you redirect STDIN with command arguments? I have tried this approach: # ./script -option <argument1> <argument2> 0<$2 # $2: ambiguous redirect Is this possible? (4 Replies)
Discussion started by: prkfriryce
4 Replies

5. Shell Programming and Scripting

Redirecting to stdin

Hi, I'm having trouble with my script. I have to select different choices without any interaction from a menu that looks like : a - xxxxxxxxxxxxxx b - xxxxxxxxxxxxxx c - xxxxxxxxxxxxxx d - xxxxxxxxxxxxxx I tried things like : echo "a" >&0 read < echo "a" but none worked. Any... (4 Replies)
Discussion started by: flame_eagle
4 Replies

6. Programming

How to write to stdin of another program (program A -> [stdin]program B)

Hi, Program A: uses pipe() I am able to read the stdout of PROGAM B (stdout got through system() command) into PROGRAM A using: * child -> dup2(fd, STDOUT_FILENO); -> execl("/path/PROGRAM B", "PROGRAM B", NULL); * parent -> char line; -> read(fd, line, 100); Question: ---------... (1 Reply)
Discussion started by: vvaidyan
1 Replies

7. UNIX for Dummies Questions & Answers

How to write to stdin of another program (program A -> [stdin]program B)

Hi, Program A: uses pipe() I am able to read the stdout of PROGAM B (stdout got through system() command) into PROGRAM A using: * child -> dup2(fd, STDOUT_FILENO); -> execl("/path/PROGRAM B", "PROGRAM B", NULL); * parent -> char line; -> read(fd, line, 100); Question: ---------... (3 Replies)
Discussion started by: vvaidyan
3 Replies

8. Shell Programming and Scripting

Redirecting stdin from fd 3-9?

Hi I'm trying to do something on the bash command line that I will later put into a bash shell script. I'm trying to take a program that reads stdin (using getline) and be able to keep it running in the background and fire "commands" to it. So what I thought I should do was to try taking... (3 Replies)
Discussion started by: niceguyeddie
3 Replies

9. UNIX and Linux Applications

Apache+Perl: interruption of STDIN

Hello dear community! I have faced with a trouble which I trying to solve for a long time. I have service of video streaming. And I have web and video roles for servers. Video servers upload video using SWFUpload and then stream it. Issue became during uploading of video. In random time... (3 Replies)
Discussion started by: sevmax
3 Replies

10. UNIX for Dummies Questions & Answers

STDIN and STDOUT

Hallo, i have a script like: if ;then echo "OK" else echo "ERROR $2 is missing" fi; if ;then touch $2 fi; if ;then cat $1 | grep xy > $2 (1 Reply)
Discussion started by: eightball
1 Replies

LEARN ABOUT DEBIAN

gtk2::pagesetup

Gtk2::PageSetup(3pm)					User Contributed Perl Documentation				      Gtk2::PageSetup(3pm)

NAME

       Gtk2::PageSetup - wrapper for GtkPageSetup

HIERARCHY

	 Glib::Object
	 +----Gtk2::PageSetup

METHODS

   pagesetup = Gtk2::PageSetup->new
   pagesetup = Gtk2::PageSetup->new_from_file ($file_name)
       o   $file_name (localized file name)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   pagesetup = Gtk2::PageSetup->new_from_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   double = $setup->get_bottom_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_bottom_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   double = $setup->get_left_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_left_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   $setup->load_file ($file_name)
       o   $file_name (string)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.14

   $setup->load_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.14

   pageorientation = $setup->get_orientation
   $setup->set_orientation ($orientation)
       o   $orientation (Gtk2::PageOrientation)

   double = $setup->get_page_height ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_page_width ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_paper_height ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_paper_size_and_default_margins ($size)
       o   $size (Gtk2::PaperSize)

   papersize = $setup->get_paper_size
   $setup->set_paper_size ($size)
       o   $size (Gtk2::PaperSize)

   double = $setup->get_paper_width ($unit)
       o   $unit (Gtk2::Unit)

   double = $setup->get_right_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_right_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

   $setup->to_file ($file_name)
       o   $file_name (localized file name)

       May croak with a Glib::Error in $@ on failure.

       Since: gtk+ 2.12

   $setup->to_key_file ($key_file, $group_name)
       o   $key_file (Glib::KeyFile)

       o   $group_name (string or undef)

       Since: gtk+ 2.12

   double = $setup->get_top_margin ($unit)
       o   $unit (Gtk2::Unit)

   $setup->set_top_margin ($margin, $unit)
       o   $margin (double)

       o   $unit (Gtk2::Unit)

ENUMS AND FLAGS

   enum Gtk2::PageOrientation
       o   'portrait' / 'GTK_PAGE_ORIENTATION_PORTRAIT'

       o   'landscape' / 'GTK_PAGE_ORIENTATION_LANDSCAPE'

       o   'reverse-portrait' / 'GTK_PAGE_ORIENTATION_REVERSE_PORTRAIT'

       o   'reverse-landscape' / 'GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE'

   enum Gtk2::Unit
       o   'pixel' / 'GTK_UNIT_PIXEL'

       o   'points' / 'GTK_UNIT_POINTS'

       o   'inch' / 'GTK_UNIT_INCH'

       o   'mm' / 'GTK_UNIT_MM'

SEE ALSO

       Gtk2, Glib::Object

COPYRIGHT

       Copyright (C) 2003-2011 by the gtk2-perl team.

       This software is licensed under the LGPL.  See Gtk2 for a full notice.

perl v5.14.2							    2012-05-27						      Gtk2::PageSetup(3pm)
All times are GMT -4. The time now is 02:41 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy