Sponsored Content
Top Forums Shell Programming and Scripting How to grep a pattern in perl? Post 302788621 by PikK45 on Tuesday 2nd of April 2013 07:13:39 AM
Old 04-02-2013
Code:
#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

my @files;
my @file_name;
my $folder = "./scratch" #please use absolute path
my $my_file = "makefile"; #please use absolute path
open(HANDLE,"<$my_file");

while(<HANDLE>)
{
    if(/check_geomtools.exe:/./\.lib$/)
    {
     @libs = split(/: /);
     push (@files, $libs[1]);
     }
}
     if ( -d $folder ) {
     mkdir ($folder, 0700);
     print "Created $folder\n";
     }
     
     foreach my $file (@files){
          @filename = split(/\\/,$file);
          copy($file,$folder.$filename[-1]);
    }
         
}

close HANDLE;

Hope this should work!

Last edited by PikK45; 04-02-2013 at 08:22 AM..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl pattern matching vs. grep

I originally had a shell script that did a grep 10 times to pull out the number of times a certain pattern occured in a file: ie... aOccurances=`grep aPattern file|wc -l` bOccurances=`grep bPattern file|wc -l` ... ... ... fOccurances=`grep fPattern file|wc -l` As the file got bigger with... (0 Replies)
Discussion started by: junkmail426
0 Replies

2. Shell Programming and Scripting

Split a file based on pattern in awk, grep, sed or perl

Hi All, Can someone please help me write a script for the following requirement in awk, grep, sed or perl. Buuuu xxx bbb Kmmmm rrr ssss uuuu Kwwww zzzz ccc Roooowwww eeee Bxxxx jjjj dddd Kuuuu eeeee nnnn Rpppp cccc vvvv cccc Rhhhhhhyyyy tttt Lhhhh rrrrrssssss Bffff mmmm iiiii Ktttt... (5 Replies)
Discussion started by: kumarn
5 Replies

3. Shell Programming and Scripting

perl:: search for tow pattern and replace the third pattern

Hi i want to search two pattern on same line and replace onther pattern.. INPut file aaaa bbbbb nnnnnn ttttt cccc bbbbb nnnnnn ppppp dddd ccccc nnnnnn ttttt ffff bbbbb oooooo ttttt now i want replace this matrix like.. i want search for "bbbbb","nnnnnn" and search and replace for... (4 Replies)
Discussion started by: nitindreamz
4 Replies

4. Shell Programming and Scripting

pattern grep using Perl in .TSV file

Hi All, I have a .TSV extension file having ~1 Gig data and I need to grep a pattern in that file using perl. I am not able to read the file using perl any suggestions on this/ If I Change the format my data gets mismangled so I am bothered about using specific format as well. #!... (3 Replies)
Discussion started by: vmsenthil
3 Replies

5. Shell Programming and Scripting

Want to grep for a pattern and display the content above that pattern

Hi, When we have a failure, sometimes we just step restart the job from the next step. Later when we open the log for analysis of the failure, it is becoming difficult to go to the failure part. For eg., if it is a 1000 line log, the failure may be at 500th line. so wat i want to do is, grep... (6 Replies)
Discussion started by: ajayakunuri
6 Replies

6. Shell Programming and Scripting

Grep the word from pattern line and update in subsequent lines till next pattern line reached

Hi, I have got the below requirement. please suggest. I have a file like, Processing Item is: /data/ing/cfg2/abc.txt /data/ing/cfg3/bgc.txt Processing Item is: /data/cmd/for2/ght.txt /data/kernal/config.klgt.txt I want to process the above file to get the output file like, ... (5 Replies)
Discussion started by: rbalaj16
5 Replies

7. Shell Programming and Scripting

Grep pattern in PERL

Hi, Can anyone tell me how this grep works? Type of input is not known Thanks in advance (2 Replies)
Discussion started by: irudayaraj
2 Replies

8. Shell Programming and Scripting

How to Grep than scan line below grep pattern

Hello Colleagues, I have a file that looks like below. 6-12731913-12731913 9230760143480 410018547148230 20131002193434+0500 20131002193434+0500 ;20131002T161031000-10.50.241.21-21912131-1419034760, ver: 0 20131009 92220056296730 CC0P abc Core_Context_R1A SMS 6-12726796-12726796... (14 Replies)
Discussion started by: umarsatti
14 Replies

9. Shell Programming and Scripting

sed and awk usage to grep a pattern 1 and with reference to this grep a pattern 2 and pattern 3

Hi , I have a file where i have modifed certain things compared to original file . The difference of the original file and modified file is as follows. # diff mir_lex.c.modified mir_lex.c.orig 3209c3209 < if(yy_current_buffer -> yy_is_our_buffer == 0) { --- >... (5 Replies)
Discussion started by: breezevinay
5 Replies

10. UNIX for Dummies Questions & Answers

Grep -v lines starting with pattern 1 and not matching pattern 2

Hi all! Thanks for taking the time to view this! I want to grep out all lines of a file that starts with pattern 1 but also does not match with the second pattern. Example: Drink a soda Eat a banana Eat multiple bananas Drink an apple juice Eat an apple Eat multiple apples I... (8 Replies)
Discussion started by: demmel
8 Replies
Dancer::FileUtils(3pm)					User Contributed Perl Documentation				    Dancer::FileUtils(3pm)

NAME
Dancer::FileUtils - helper providing file utilities SYNOPSIS
use Dancer::FileUtils qw/dirname path/; # for 'path/to/file' my $dir = dirname($path); # returns 'path/to' my $path = path($path); # returns '/abs/path/to/file' use Dancer::FileUtils qw/path read_file_content/; my $content = read_file_content( path( 'folder', 'folder', 'file' ) ); my @content = read_file_content( path( 'folder', 'folder', 'file' ) ); use Dancer::FileUtils qw/read_glob_content set_file_mode/; open my $fh, '<', $file or die "$! "; set_file_mode($fh); my @content = read_file_content($fh); my $content = read_file_content($fh); DESCRIPTION
Dancer::FileUtils includes a few file related utilities related that Dancer uses internally. Developers may use it instead of writing their own file reading subroutines or using additional modules. SUBROUTINES
/METHODS dirname use Dancer::FileUtils 'dirname'; my $dir = dirname($path); Exposes File::Basename's dirname, to allow fetching a directory name from a path. On most OS, returns all but last level of file path. See File::Basename for details. open_file use Dancer::FileUtils 'open_file'; my $fh = open_file('<', $file) or die $message; Calls open and returns a filehandle. Takes in account the 'charset' setting from Dancer's configuration to open the file in the proper encoding (or defaults to utf-8 if setting not present). path use Dancer::FileUtils 'path'; my $path = path( 'folder', 'folder', 'filename'); Provides comfortable path resolving, internally using File::Spec. read_file_content use Dancer::FileUtils 'read_file_content'; my @content = read_file_content($file); my $content = read_file_content($file); Returns either the content of a file (whose filename is the input), undef if the file could not be opened. In array context it returns each line (as defined by $/) as a separate element; in scalar context returns the entire contents of the file. read_glob_content use Dancer::FileUtils 'read_glob_content'; open my $fh, '<', $file or die "$! "; my @content = read_glob_content($fh); my $content = read_glob_content($fh); Same as read_file_content, only it accepts a file handle. Returns the content and closes the file handle. set_file_mode use Dancer::FileUtils 'set_file_mode'; set_file_mode($fh); Applies charset setting from Dancer's configuration. Defaults to utf-8 if no charset setting. EXPORT
Nothing by default. You can provide a list of subroutines to import. AUTHOR
Alexis Sukrieh LICENSE AND COPYRIGHT
Copyright 2009-2011 Alexis Sukrieh. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. perl v5.14.2 2012-01-27 Dancer::FileUtils(3pm)
All times are GMT -4. The time now is 08:23 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy