06-07-2011
Data extraction in perl variable
HI,
i have variable in perl like below
HTML Code:
$tmp="/home/sai/automation/work/TFP_GN.txt"
it can conatain any path its filled from config file.
now i want extarct the path upto this /home/sai/automation/work/ and put it in another variable
say $newtmp=="/home/sai/automation/work/"
i mean last any file name like TFP_GN.txt or dummy.csc etc should be removed and want only directory path like /home/sai/automation/work/
Any thought ?
Thanks,
Raghav
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a small problem,
I have written a following script, which extracts all the rows from source file which strats with T101 and rights it to another file mydata.dat
Script my_script
#!/bin/ksh
YMONTH=$1
dir1='/home/data'
dir2='/clients/source_file'
cd $dir1
grep "T101"... (5 Replies)
Discussion started by: irehman
5 Replies
2. Shell Programming and Scripting
Hello all,
Iam newbie here and to unix programming. I have the following text file.
A:Woshington,B:London,C:Paris,D:Manchester,C:Lisbon,E:Cape town.
Now I would like extract this and store in database. here is the script I have tried but it did work.
CITY1:`echo "$text" | grep "A:"... (11 Replies)
Discussion started by: mam
11 Replies
3. Shell Programming and Scripting
Hi All,
I have a requirement where I have to search the file with some text say "Exception". This exception word can be repeated for more then 10 times.
Suppose the "Exception" word is repeated at line numbers say x=10, 50, 60, 120. Now I want to extract all the lines starting from x-5 to... (3 Replies)
Discussion started by: rrangaraju
3 Replies
4. Shell Programming and Scripting
Hi,
I have a tmp file like below:
<ADATA>
ANUM=900
ADESC=Saving
ATYP=0
TXREGD=0
</ADATA>
<ADATA>
ANUM=890
ADESC=Saving
ATYP=0
ABAL=9000
TXREGD=1
</ADATA>
<ADATA> (6 Replies)
Discussion started by: kunigirib
6 Replies
5. Shell Programming and Scripting
Hello everybody,
Another day another problem.
I have to create a script which collects data from 3 csv files.
I would like the script to check file1 which contains different values for the date entered previously. As you can see 01/12/2010 contains actions in the first field and in the... (7 Replies)
Discussion started by: freyr
7 Replies
6. Shell Programming and Scripting
Hello,
I want to extract the words from a file which starts with SRD-R or SRD-DR.
I have written a script which is able to trace the word but it is printing the whole line.
sub extract_SRD_tag{
my ($tag, $app, $path, @data, $word );
$path = shift;
$app = shift;
open (FILE, $path) or... (2 Replies)
Discussion started by: suvendu4urs
2 Replies
7. Shell Programming and Scripting
In the hello.htm have the sentenses:
Hello $name
How are you?
The perl script:
$name = "David";
open(HEADER,"hello.htm");
while(<HEADER>) { $html .= $_; }
close(HEADER);
print "$html";I making something about template. But it can't process the $name variable. (4 Replies)
Discussion started by: natong
4 Replies
8. Shell Programming and Scripting
Hi Freinds,
I have a file1.txt in the following format
File1.txt
I want to get 2 files from the above file filextra.txt should have the lines which are ending with "<" and remaining lines in the filecompare.txt file.
Please help. (3 Replies)
Discussion started by: i150371485
3 Replies
9. UNIX for Dummies Questions & Answers
Hello all,
I want to extract some particular data from a files and than add all the values .
but i m not able to cut the particular word(USU-INOCT and USU-OUTOCT) as it is coming not in column. and than able to add values coming in it .
can anyone help me Please
cat <file name>
... (7 Replies)
Discussion started by: anamdev
7 Replies
10. Shell Programming and Scripting
Hi team,
# PERL
I have Dumper variable in perl and containing the below data and trying to fetch value and name from the reference variable.
$VAR1 = {
'retainSysIds' => 'true',
'variables' => ,
'name' => ,
... (4 Replies)
Discussion started by: giridhar276
4 Replies
LEARN ABOUT OSX
cpanplus::internals::extract5.16
CPANPLUS::Internals::Extract(3pm) Perl Programmers Reference Guide CPANPLUS::Internals::Extract(3pm)
NAME
CPANPLUS::Internals::Extract - internals for archive extraction
SYNOPSIS
### for source files ###
$self->_gunzip( file => 'foo.gz', output => 'blah.txt' );
### for modules/packages ###
$dir = $self->_extract( module => $modobj,
extractdir => '/some/where' );
DESCRIPTION
CPANPLUS::Internals::Extract extracts compressed files for CPANPLUS. It can do this by either a pure perl solution (preferred) with the
use of "Archive::Tar" and "Compress::Zlib", or with binaries, like "gzip" and "tar".
The flow looks like this:
$cb->_extract
Delegate to Archive::Extract
METHODS
$dir = _extract( module => $modobj, [perl => '/path/to/perl', extractdir => '/path/to/extract/to', prefer_bin => BOOL, verbose => BOOL, force
=> BOOL] )
"_extract" will take a module object and extract it to "extractdir" if provided, or the default location which is obtained from your
config.
The file name is obtained by looking at "$modobj->status->fetch" and will be parsed to see if it's a tar or zip archive.
If it's a zip archive, "__unzip" will be called, otherwise "__untar" will be called. In the unlikely event the file is of neither format,
an error will be thrown.
"_extract" takes the following options:
module
A "CPANPLUS::Module" object. This is required.
extractdir
The directory to extract the archive to. By default this looks something like:
/CPANPLUS_BASE/PERL_VERSION/BUILD/MODULE_NAME
prefer_bin
A flag indicating whether you prefer a pure perl solution, ie "Archive::Tar" or "Archive::Zip" respectively, or a binary solution like
"unzip" and "tar".
perl
The path to the perl executable to use for any perl calls. Also used to determine the build version directory for extraction.
verbose
Specifies whether to be verbose or not. Defaults to your corresponding config entry.
force
Specifies whether to force the extraction or not. Defaults to your corresponding config entry.
All other options are passed on verbatim to "__unzip" or "__untar".
Returns the directory the file was extracted to on success and false on failure.
perl v5.16.2 2012-10-11 CPANPLUS::Internals::Extract(3pm)