05-05-2011
Check my new changed code in the last post..If it wont work , paste the i/p and o/p extected ( atleast few rows )
Regards
Ravi
8 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I need to edit a list of numbers on the following form:
1 1.0
2 1.4
5 2.1
7 1.9
I want:
1 1.0
2 1.4
3 0.0
4 0.0
5 2.1
6 0.0
7 1.9
(i want to add the missing number in column 1 together with 0.0 in column 2).
I guess it is rather trivial but i didn't even manage to read column... (5 Replies)
Discussion started by: bistru
5 Replies
2. Shell Programming and Scripting
Dear All,
I have below attached file in which i have many nos, i want the last ascending order nos. The brief description is given below.
File
315
381
432
315
381
432
315
381
432
315
381
432
315
381
432 (6 Replies)
Discussion started by: pravani1
6 Replies
3. UNIX for Dummies Questions & Answers
Hi Experts,
Need help on printing of numbers, which are missing in the range.
Pls find the details below
Input
1000000002
1000000007
1234007940
1234007946
Output
1000000003
1000000004
1000000005
1000000006
1234007941 (2 Replies)
Discussion started by: krao
2 Replies
4. Shell Programming and Scripting
File A
aa <space> --D--A--D---DDY---M--UM-M--MY
Another file
D3
M9
So output shud be
Here in FileA D which is 3 after removing dash
after we have counted dash D is position at 9
and for M is 23
final output will be
D9
M23 (2 Replies)
Discussion started by: cdfd123
2 Replies
5. Programming
I need some help in generating pair of numbers in orders using FORTRAN code.
The order is like following.
loop_1: 1,2 2,3 3,4 4,5 5,6 6,7 7,8 ..... until <= 2000
loop_2: 1,3 3,5, 5,7 7,9 9,11 11,13 ........until <= 2000
loop_3: 1,4, 4,7 7,10 10,13 13,17 ..... until... (3 Replies)
Discussion started by: vjramana
3 Replies
6. UNIX for Dummies Questions & Answers
I have a text file where I want to append a column of numbers in ascending orders.
Input:
57 abc
25 def
32 ghi
54 jkl
Output:57 abc
57 abc 1
25 def 2
32 ghi 3
54 jkl 4
How do I go about doing that? Thanks! (11 Replies)
Discussion started by: evelibertine
11 Replies
7. Shell Programming and Scripting
Dear board,
(I am trying to post this the 3rd time, seems there's some conflicts with my firefox with this forum, now use IE)
------
yes, I have searched the forum, but seems my ? is too complicated.
------------origianl file ---------------
\storage\qweq\ertert\ertert\3452\&234\test.rec... (4 Replies)
Discussion started by: oUo
4 Replies
8. UNIX for Advanced & Expert Users
Hi am using unix aix
we have a lots of files which comes from server and fetch in one directory. the files will be in the format as
File name as :
-------------
pprr0103 (01 as date and 03 as month)
pprr0203
pprr0603
...
...
pprr3103
pprr0304
Outputs:-
Missing files as... (2 Replies)
Discussion started by: Venkatesh1
2 Replies
LEARN ABOUT DEBIAN
app::nopaste
App::Nopaste(3pm) User Contributed Perl Documentation App::Nopaste(3pm)
NAME
App::Nopaste - easy access to any pastebin
SYNOPSIS
use App::Nopaste 'nopaste';
my $url = nopaste(q{
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)1+$/' [number]
});
# or on the command line:
nopaste test.pl
=> http://pastebin.com/fcba51f
DESCRIPTION
Pastebins (also known as nopaste sites) let you post text, usually code, for public viewing. They're used a lot in IRC channels to show
code that would normally be too long to give directly in the channel (hence the name nopaste).
Each pastebin is slightly different. When one pastebin goes down (I'm looking at you, <http://paste.husk.org>), then you have to find a new
one. And if you usually use a script to publish text, then it's too much hassle.
This module aims to smooth out the differences between pastebins, and provides redundancy: if one site doesn't work, it just tries a
different one.
It's also modular: you only need to put on CPAN a App::Nopaste::Service::Foo module and anyone can begin using it.
INTERFACE
CLI
See the documentation in App::Nopaste::Command.
"nopaste"
use App::Nopaste 'nopaste';
my $url = nopaste(
text => "Full text to paste (the only mandatory argument)",
desc => "A short description of the paste",
nick => "Your nickname",
lang => "perl",
chan => "#moose",
private => 1, # default: 0
# this is the default, but maybe you want to do something different
error_handler => sub {
my ($error, $service) = @_;
warn "$service: $error";
},
warn_handler => sub {
my ($warning, $service) = @_;
warn "$service: $warning";
},
# you may specify the services to use - but you don't have to
services => ["Shadowcat", "Gist"],
);
print $url if $url;
The "nopaste" function will return the URL of the paste on success, or "undef" on failure.
For each failure, the "error_handler" argument is invoked with the error message and the service that issued it.
For each warning, the "warn_handler" argument is invoked with the warning message and the service that issued it.
SEE ALSO
WebService::NoPaste, WWW::Pastebin::PastebinCom::Create, Devel::REPL::Plugin::Nopaste
http://perladvent.org/2011/2011-12-14.html <http://perladvent.org/2011/2011-12-14.html>
AUTHOR
Shawn M Moore, "sartak@gmail.com"
COPYRIGHT AND LICENSE
Copyright 2008-2010 Shawn M Moore.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-12-15 App::Nopaste(3pm)