02-21-2013
Hi ,
The command works fine
perl -lne '(/File Name
\d+).*?time taken.*?
\d+)/ || /File Name:.*?\](\d+).*?time taken
\d+)/) && print "$1 -- $2"'
But if the name is alphanumberic (DLFE-192818716.pptx) it doesnt work . I tried with /w option but that terminates the filename .
8 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
suppose u have a file
ACFCFACCACARCSHFARCVJVASTVAJFTVAJVGHBAJ
another file
A
C
F
R
then output shud be
A= 9
C=7
F=3
R=2
Thanks (12 Replies)
Discussion started by: cdfd123
12 Replies
2. Shell Programming and Scripting
Hi,
I have a question on bash. Basically I would like to print a file name using bash. I am actually trying to grep a particular character in sequential files.
I have alot files such that a.txt, b.txt,c.txt...etc.
If I found a certain character, I would print that particular filename.
I... (5 Replies)
Discussion started by: ahjiefreak
5 Replies
3. Shell Programming and Scripting
Hi all,
I need help in following scenario. I have a file with about 10,000 lines. There are several lines which have word "START" (all upper case) in them. I want to grep line with word "START" and then do the following
1. Print the line number having word "START"
2. Print the next 11 lines.
... (4 Replies)
Discussion started by: jakSun8
4 Replies
4. Shell Programming and Scripting
Hi Guys,
I need to set the value of $7 to zero in case $7 is NULL. I've tried the below command but doesn't work. Any ideas. thanks guys.
MEM=`ps v $PPID| grep -i db2 | grep -v grep| awk '{ if ( $7 ~ " " ) { print 0 } else { print $7}}' `
Harby. (4 Replies)
Discussion started by: hariza
4 Replies
5. UNIX for Dummies Questions & Answers
I just need to print value 12 digit number after the key *MI*. My big concern is the below lines are not fixed format or length so cant cut based on the position.
XSA*00**00**XZ*DA-Paper*30*942411167****MI*010001990802~AEE
XSA*00**00**ZZ*EA-aper*30*94169****MI*010001960802~SDRE*ER... (7 Replies)
Discussion started by: gunaah
7 Replies
6. Shell Programming and Scripting
Hi
I have this in my file
2011-04-18 15:32:11 system-alert-00012: UDP flood! From xxxxxx to yyyyyyyyyy, int ethernet0/2). Occurred 1 times.
2011-04-18 15:32:11 system-alert-00012: UDP flood! From xxxxxx to yyyyyyyyyy, int ethernet0/2). Occurred 1 times.
2011-04-18 15:32:11... (9 Replies)
Discussion started by: zorrox
9 Replies
7. Shell Programming and Scripting
My current code is:
user@ubuntu:~/Desktop$ grep -e "\(packaged by\)\|\(employee\)\|\(file name\)\|\(Total Data (MB) Read\)\|\(Begin Time\)" log.txt
packaged by = Ron Mexico
employee = Michael Vick
file name = Mike_Vick_2011.bat
Total Data (MB) Read: 11.82
Begin Time: 6/13/2011... (8 Replies)
Discussion started by: chipperuga
8 Replies
8. Shell Programming and Scripting
RHEL 5.8
I have a text file like below. I want to grep for a string and then print the next 4 lines including the line with the string I grepped for
For eg:
I want grep for the string HANS and then print the next 4 lines including HANS
$ cat someText.txt
JOHN
NATIONALITY:... (7 Replies)
Discussion started by: omega3
7 Replies
LEARN ABOUT DEBIAN
file::slurp::withinpolicy
File::Slurp::WithinPolicy(3pm) User Contributed Perl Documentation File::Slurp::WithinPolicy(3pm)
NAME
File::Slurp::WithinPolicy - Applies filesystem policies to File::Slurp
SYNOPSIS
use File::Slurp::WithinPolicy qw(:all);
my $text = read_file( 'filename' );
my @lines = read_file( 'filename' );
write_file( 'filename', $text );
append_file( 'filename', $more_text );
overwrite_file( 'filename', $text );
my @files = read_dir( '/path/to/dir' );
DESCRIPTION
This provides the File::Slurp interface within a policy defined by File::Policy. By default, File::Policy is a no-op and this behaves
identically to File::Slurp. System administrators may want to override the default File::Policy implementation to enforce a local filesys-
tem policy (see File::Policy).
FUNCTIONS
read_dir
See "read_dir" in File::Slurp
read_file
See "read_file" in File::Slurp
write_file
See "write_file" in File::Slurp
append_file
See "append_file" in File::Slurp
overwrite_file
See "overwrite_file" in File::Slurp
EXPORTS
By default, nothing is exported. The ":all" tag can be used to export everything. Individual methods can also be exported.
SEE ALSO
File::Slurp, File::Policy
VERSION
$Revision: 1.4 $ on $Date: 2005/06/15 10:40:21 $ by $Author: simonf $
AUTHOR
John Alden <cpan _at_ bbc _dot_ co _dot_ uk>
COPYRIGHT
(c) BBC 2005. This program is free software; you can redistribute it and/or modify it under the GNU GPL.
See the file COPYING in this distribution, or http://www.gnu.org/licenses/gpl.txt
perl v5.8.8 2005-06-15 File::Slurp::WithinPolicy(3pm)