12-20-2009
i suggest you post this at PerlMonks.
Last edited by pludi; 12-20-2009 at 11:41 AM..
Reason: removed link
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I need help with a perl parsing script. I have some error logs on a windows machine that I need to parse from a text file, but I know nothing about perl. I usually run this bash script on my linux box and it does just what I need. How would I do the same thing with perl and port it to my windows... (2 Replies)
Discussion started by: cstovall
2 Replies
2. Shell Programming and Scripting
Hi,
I have searched, read and tried, but no luck.
I have this code:
#!/bin/perl -w #-d
use strict;
use POSIX qw(strftime);
my $getprpw_list="/usr/lbin/getprpw -l";
my $host = "nbsol151";
my $user = "genadmin";
my %uid;
my %spwchg;
my %upwchg;
my %slogint; (2 Replies)
Discussion started by: ejdv
2 Replies
3. Shell Programming and Scripting
Hello:
I butchered a shell script together, but my script kung-fu is 5 years old and all I've used for 5 years are for i loops. I hope that some perl guru can do in 5 minutes what takes me 5 weeks, so I am asking for help.
I have a simple script using "grep -A 2 'string' /path/to/file" but... (4 Replies)
Discussion started by: Habitual
4 Replies
4. Shell Programming and Scripting
This is the ldf file
dn: sdcsmsisdn=1000000049,sdcsDatabase=subscriberCache,dc=example,dc=com
objectClass: sdcsSubscriber
objectClass: top
postalCode: 29600
sdcsServiceLevel: 10
sdcsCustomerType: 14
givenName: Adelia
sdcsBlackListAll: FALSE
sdcsOwnerType: T-Mobile
sn: Actionteam... (1 Reply)
Discussion started by: LinuxFriend
1 Replies
5. Shell Programming and Scripting
Hi,
I have a file as below
I need to overwrite the 2 nd column alone to numeric format like "06122011030414012345" as per the timestamp value
output file should be
the microseconds can be neglected if required.
Any help will be appreciated.
Thanks in advance (1 Reply)
Discussion started by: irudayaraj
1 Replies
6. Shell Programming and Scripting
Hello Sir,
How can i convert below two loop lines in perl
for BLOCK in /sys/block/myblock*
for BLOCK in /dev/myblock*
How i can write them in perl like
foreach( </sys/block/myblock*/queue/nr_requests> ) (5 Replies)
Discussion started by: learnbash
5 Replies
7. Shell Programming and Scripting
Please tell me how to convert below program from shell script to perl. Same commands need to use in shutdown, just need program help for startup.
export ORACLE_BASE=/home/oracle1
lsnrctl start lndb1
sqlplus '/ as sysdba'
startup; (2 Replies)
Discussion started by: learnbash
2 Replies
8. Shell Programming and Scripting
Hi All,
Hope all are doing good!! Am glad that i have utilized some ideas and written a code to make the disk space result comes better and it was successfully running in the production. The next update from my manager was to make this code to come in a table format with color added.
1)... (28 Replies)
Discussion started by: Kalaihari
28 Replies
9. Shell Programming and Scripting
Hi Guys
I am having a perl script that fetches exclude list from a unix client and I trying it to convert it to shell script but I am having issues please help me...
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
# To turn on debuging (i.e. more information) specify... (29 Replies)
Discussion started by: Pawan Ramnani
29 Replies
10. Solaris
Hi all!!
I´m using command file -i myfile.xml to validate XML file encoding, but it is just saying regular file . I´m expecting / looking an output as UTF8 or ANSI / ASCII
Is there command to display the files encoding?
Thank you! (2 Replies)
Discussion started by: mrreds
2 Replies
LEARN ABOUT DEBIAN
filehandle::fmode
Fmode(3pm) User Contributed Perl Documentation Fmode(3pm)
NAME
FileHandle::Fmode - determine whether a filehandle is opened for reading, writing, or both.
SYNOPSIS
use FileHandle::Fmode qw(:all);
.
.
#$fh and FH are open filehandles
print is_R($fh), "
";
print is_W(*FH), "
";
FUNCTIONS
$bool = is_FH($fh);
$bool = is_FH(*FH);
This is just a (more intuitively named) alias for is_arg_ok().
Returns 1 if its argument is an open filehandle.
Returns 0 if its argument is something other than an open filehandle.
$bool = is_arg_ok($fh);
$bool = is_arg_ok(*FH);
Returns 1 if its argument is an open filehandle.
Returns 0 if its argument is something other than an open filehandle.
Arguments to the following functions must be open filehandles. If
any of those functions receive an argument that is not an open
filehandle then the function dies with an appropriate error message.
To ensure that your script won't suffer such a death, you could first
check by passing the argument to is_FH(). Or you could wrap the
function call in an eval{} block.
Note that it may be possible that a filehandle opened for writing may
become unwritable - if (eg) the disk becomes full. I don't know how
the below functions would be affected by such an event. I suspect
that they would be unaware of the change ... but I haven't actually
checked.
$bool = is_R($fh);
$bool = is_R(*FH);
Returns true if the filehandle is readable.
Else returns false.
$bool = is_W($fh);
$bool = is_W(*FH);
Returns true if the filehandle is writable.
Else returns false
$bool = is_RO($fh);
$bool = is_RO(*FH);
Returns true if the filehandle is readable but not writable.
Else returns false
$bool = is_WO($fh);
$bool = is_WO(*FH);
Returns true if the filehandle is writable but not readable.
Else returns false
$bool = is_RW($fh);
$bool = is_RW(*FH);
Returns true if the filehandle is both readable and writable.
Else returns false
$bool = is_A($fh);
$bool = is_A(*FH);
Returns true if the filehandle was opened for appending.
Else returns false.
Not currently implemented on Win32 with pre-5.6.1 versions of perl (and
dies with appropriate error message if called on such a platform).
CREDITS
Inspired (hmmm ... is that the right word ?) by an idea from BrowserUK
posted on PerlMonks in response to a question from dragonchild. Win32
code (including XS code) provided by BrowserUK. Zaxo presented the idea
of using fcntl() in an earlier PerlMonks thread.
Thanks to dragonchild and BrowserUK for steering this module in
the right direction.
Thanks to attn.steven.kuo for directing me to the perliol routines
that enable us to query filehandles attached to memory objects.
And thanks to Jost Krieger for helping to sort out the test failures that
were occurring on Solaris (and some other operating systems too).
TODO
I don't know that anyone still runs pre-5.6.1 perl on Win32. However, if
someone likes to tell me how is_A() could be made to work on pre-5.6.1
Win32 perl, I would be quite happy to implement it.
LICENSE
This program is free software; you may redistribute it and/or
modify it under the same terms as Perl itself.
Copyright 2006-2008, Sisyphus
AUTHOR
Sisyphus <sisyphus at cpan dot org>
perl v5.14.2 2008-09-26 Fmode(3pm)