I just write a simple function to read the file line by line.
But when I run it it says out of memory.
I am not sure about the root cause, Can someone help me out of this?
Code:
#! /usr/bin/perl
use strict;
sub checkAPs{
my $NDPDir = "/home/eweiqqu/NCB/NDP_files/";
my $gsnFile = $NDPDir . "gsn.cbd";
print $gsnFile."\n";
my @aps = ();
open Handler, $gsnFile or die "cannot open gsn.cbd";
my @lines =<Handler>;
while (@lines){
push @aps, $3;
}
close(Handler);
while (@aps){
print $_." ";
}
}
&checkAPs;
I want to append a decimal number to a string. But I want to restrict the number to only 2 decimal points
for e.g:
my $output = "\n The number is = ";
my $number = 2.3333333;
$output = $output . $number;
But I want the $output as: "The number is = 2.33"; and not 2.3333333
(I do not... (1 Reply)
Hey,
I'm trying to read a file from a server. Simple file with some numbers.
Here is the code i'm running.
use Net::SSH::Perl::SSH1 ;
$scon = Net::SSH::Perl->new ("com123.sever.mydomain.com",(protocol=>'2',port=>'22',debug=>'true'));
$scon->login("user123","pass123");
open(FILE,... (9 Replies)
Hi,
I am new to perl.
I want to read from a file on the basis of some conditions..
I want to define parameters in a configuration file in such a manner like...
etc..
in my perl script, theer is a variable like this..
then i want to read values from first if block from the file... (1 Reply)
Hi there, i have been trying different methods and i wonder if somebody could explain to me how i would perform a comparison on two arrays for example
my @array1 = ("gary" ,"peter", "paul");
my @array2 = ("gary" ,"peter", "joe");
I have two arrays above, and i want to something like this... (5 Replies)
I am totally new to perl. I am modifying someone else's script. I have the following output:
# ./some-perlscript
A
B
C
D
E
B - E, is generated through the print command that I put in the script. I want to remove A, it seems it is generated automatically by a custom OS it is querying when... (3 Replies)
If a form's action is the following Perl script how do I make it print the entire contents of the file on the screen?
if(param())
{
my $uploadedFile = param('file');#in the html page 'file' is the value of the name attribute of the input
my $fh = upload($uploadedFile);
... (1 Reply)
Hello, I have a simple(I think) question!
Although simple, I have been unable to resolve it, so I hope someone can help! OK, here it is:
1)I have an awk script that prints something, such as:
awk '{print $2}' a > x
so x might hold the value of say '10'
2)Now, I just want to check to see if... (4 Replies)
Hello,
I'm completely new to Perl and I'm just looking for a quick answer to some code I'm trying to come up with. I'm trying to access a website, part of the URL I want the user to be able to define via standard input. As you can see below I'm still trying to get the syntax.
... (2 Replies)
Is there a script that will automatically access/count the words in each individual file for a program?
(Sorry, I'm trying to help my girlfriend who's in computer science out, I know nothing about this. We're having trouble wording this question.) (1 Reply)
Discussion started by: Triple M
1 Replies
LEARN ABOUT DEBIAN
app::info::handler::prompt
App::Info::Handler::Prompt(3pm) User Contributed Perl Documentation App::Info::Handler::Prompt(3pm)NAME
App::Info::Handler::Prompt - Prompting App::Info event handler
SYNOPSIS
use App::Info::Category::FooApp;
use App::Info::Handler::Print;
my $prompter = App::Info::Handler::Print->new;
my $app = App::Info::Category::FooApp->new( on_unknown => $prompter );
# Or...
my $app = App::Info::Category::FooApp->new( on_confirm => 'prompt' );
DESCRIPTION
App::Info::Handler::Prompt objects handle App::Info events by printing their messages to "STDOUT" and then accepting a new value from
"STDIN". The new value is validated by any callback supplied by the App::Info concrete subclass that triggered the event. If the value is
valid, App::Info::Handler::Prompt assigns the new value to the event request. If it isn't it prints the error message associated with the
event request, and then prompts for the data again.
Although designed with unknown and confirm events in mind, App::Info::Handler::Prompt handles info and error events as well. It will simply
print info event messages to "STDOUT" and print error event messages to "STDERR". For more interesting info and error event handling, see
App::Info::Handler::Print and App::Info::Handler::Carp.
Upon loading, App::Info::Handler::Print registers itself with App::Info::Handler, setting up a single string, "prompt", that can be passed
to an App::Info concrete subclass constructor. This string is a shortcut that tells App::Info how to create an App::Info::Handler::Print
object for handling events.
INTERFACE
Constructor
new
my $prompter = App::Info::Handler::Prompt->new;
Constructs a new App::Info::Handler::Prompt object and returns it. No special arguments are required.
BUGS
Please send bug reports to <bug-app-info@rt.cpan.org> or file them at <http://rt.cpan.org/NoAuth/Bugs.html?Dist=App-Info>.
AUTHOR
David Wheeler <david@justatheory.com>
SEE ALSO
App::Info documents the event handling interface.
App::Info::Handler::Carp handles events by passing their messages Carp module functions.
App::Info::Handler::Print handles events by printing their messages to a file handle.
App::Info::Handler describes how to implement custom App::Info event handlers.
COPYRIGHT AND LICENSE
Copyright (c) 2002-2008, David Wheeler. Some Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2011-03-15 App::Info::Handler::Prompt(3pm)
11-10-2011
