06-01-2015
Hi Sea,
Thanks for youre quick reply, however the issue is that, position of CSP is not fixed, it varies depending on other informations. I need something to identify position of CSP then extract CSP information till next "&".
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi all, i am quite new with Perl (just 1 week of experience) and i am suppose to understand the usage of library, which i can't, anyway...
i came across this library...i think from the linux redhat redhat.linux.lib.pl, there are a couple of functions there that can be used to retrieve information... (3 Replies)
Discussion started by: mercz
3 Replies
2. Shell Programming and Scripting
Hello,
I have the following record in a text file, i would like modify some field:
1 - remove all space between ",", but the company name of word will not delete. Anyway, I can use the following statement to do it.
's/^ *//;s/ *, */,/g;s/ *$//' file
2. field #12, I need to modify to time... (11 Replies)
Discussion started by: happyv
11 Replies
3. HP-UX
Hello,
Below is my input file's content ( in HP-UX platform ):
ABCD120672-B21 1
ABCD142257-002 1
ABCD142257-003 1
ABCD142257-006 1
From the above, I just want to get the field of 13 characters that comes after 'ABCD' i.e '120672-B21'... . Could... (2 Replies)
Discussion started by: jansat
2 Replies
4. Shell Programming and Scripting
Dear all
I have the following problem that want to have your advices.
I want to capture the `ps auxwww | head -30` image with field separator (|) in my script
My expect output
USER PID %CPU %MEM SZ RSS TTY STAT STIME TIME COMMAND
root | 774 | 18.5 | 0.0 | 12 | 19716 | - |... (5 Replies)
Discussion started by: on9west
5 Replies
5. Shell Programming and Scripting
:confused: I have a tab delimited file that I need to extract data from and into a file with specific field specs. Each field has to be a certain amount of characters. So, the name field (from delimited file) might have only 15 characters but needs to be 25 (in new file) so I need to insert spaces... (5 Replies)
Discussion started by: criddel
5 Replies
6. Shell Programming and Scripting
I'm trying to update a text file via sed/awk, after a lot of searching I still can't find a code snippet that I can get to work.
Brief overview:
I have user input a line to a variable, I then find a specific value in this line 10th field in this case. After asking for new input and doing some... (14 Replies)
Discussion started by: crownedzero
14 Replies
7. UNIX and Linux Applications
Hi Everyone,
New to the forum, and have my first question.
I have the following Macro currently being used within Telnet to run a report for the date being entered. However, now I need the Macro to input the day after today to the the day after today.
Example: If today is May 9, 2012 - the... (0 Replies)
Discussion started by: CipherEffect
0 Replies
8. Shell Programming and Scripting
Hello,
i need help with awk.
I have this file:
cat number
DirB port 67 er_enc_out 0 er_bad_os 0
DirB port 71 er_enc_out 56 er_bad_os 0
DirB port 74 er_enc_out 0 er_bad_os 0
DirB port 75 ... (4 Replies)
Discussion started by: elilmal
4 Replies
9. Shell Programming and Scripting
hi, i have a file A like this:
******************* No 2823 ********************
contig15205-
G383C4U02H4G80+ is in contig15205-
G383C4U02HGLXM- is in contig15205-
G383C4U01C3HIZ+ is in contig15205-
... (3 Replies)
Discussion started by: the_simpsons
3 Replies
10. Shell Programming and Scripting
In a particular directory, there can be 1000 files like below.
filename is job901.ksh
#!/bin/ksh
cront -x << EOJ
submit file=$PRODPATH/scripts/genReport.sh maxdelay=30
&node=xnode01
tname=job901
&pfile1=/prod/mldata/data/test1.dat
... (17 Replies)
Discussion started by: vedanta
17 Replies
LEARN ABOUT DEBIAN
module::extract::use
Module::Extract::Use(3pm) User Contributed Perl Documentation Module::Extract::Use(3pm)
NAME
Module::Extract::Use - Pull out the modules a module uses
SYNOPSIS
use Module::Extract::Use;
my $extor = Module::Extract::Use->new;
my @modules = $extor->get_modules( $file );
if( $extor->error ) { ... }
my @details = $extor->get_modules_with_details( $file );
foreach my $detail ( @details ) {
printf "%s %s imports %s
",
$detail->module, $detail->version,
join ' ', @{ $detail->imports }
}
DESCRIPTION
Extract the names of the modules used in a file using a static analysis. Since this module does not run code, it cannot find dynamic uses
of modules, such as "eval "require $class"".
new Makes an object. The object doesn't do anything just yet, but you need it to call the methods.
init
Set up the object. You shouldn't need to call this yourself.
get_modules( FILE )
Returns a list of namespaces explicity use-d in FILE. Returns undef if the file does not exist or if it can't parse the file.
Each used namespace is only in the list even if it is used multiple times in the file. The order of the list does not correspond to
anything so don't use the order to infer anything.
get_modules_with_details( FILE )
Returns a list of hash references, one reference for each namespace explicitly use-d in FILE. Each reference has keys for:
namespace - the namespace, always defined
version - defined if a module version was specified
imports - an array reference to the import list
Each used namespace is only in the list even if it is used multiple times in the file. The order of the list does not correspond to
anything so don't use the order to infer anything.
error
Return the error from the last call to "get_modules".
TO DO
o Make it recursive, so it scans the source for any module that it finds.
SEE ALSO
Module::ScanDeps
SOURCE AVAILABILITY
The source code is in Github: git://github.com/briandfoy/module-extract-use.git
AUTHOR
brian d foy, "<bdfoy@cpan.org>"
COPYRIGHT AND LICENSE
Copyright (c) 2008-2011, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
perl v5.10.1 2011-03-31 Module::Extract::Use(3pm)