FTP search ,grep using perl Post: 302800365

Sponsored Content

Top Forums Shell Programming and Scripting FTP search ,grep using perl Post 302800365 by ajayram_arya on Monday 29th of April 2013 03:16:30 PM

04-29-2013

Registered User

Sorry if you felt like that. You are very helpful . Below is the code what i tried.trying to create a copy of a file with timestamp

Code:

#!/usr/bin/perl -w

use Net::FTP;
use File::Copy;

my @str=("files.txt");

open(IN, "<files.txt");
open(OUT, ">output.log");

my (undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime;
$year += 1900;
$mon += 1;
$date = sprintf "%02d/%02d/%04d", $mon, $mday, $year;
copy ("output.log", "output.log".$date."");


while($line=<IN>)
{
        chomp($line); # Remove newline from end of string
        push(@str, $line); # Add string to end of @str array
}
my $yar = 2002;

$ftp = Net::FTP->new("hostname");
$ftp->login('user', 'password');
$ftp->cwd("/pub/data/gsod/$yar");
$ftp->binary;

my @filenames=$ftp->ls();
print " Total files:", $#filenames + 1, "\n";
$match=0;
foreach (@filenames)
{
        for my $s(@str)
        {
                if(index($_, $s) >= 0)
                {
                         print OUT "$_", " ",  $ftp->size($_),
#                        print $_, " Size:[", $ftp->size($_), "]",
#                                " Mtime ", scalar(localtime($ftp->mdtm($_))),
                                "\n";
                        $match++;
                        copy ("output.log", "output.log".$date."");
                }
        }
}

if($match == 0) { print "No files matched\n"; }

$ftp->quit();

#system("cp output.log output.yesterday");

ajayram_arya

View Public Profile for ajayram_arya

Find all posts by ajayram_arya

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

using finddepth in ftp to search for directories in perl

Hi all, I have script which downloads the build and copies onto the local machine I am able to download files in a directory, but unable to get the files in subdierctories. I am using finddepth to search for sub directories but I am unable to do so. Here is my code: ...

2. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData...

3. Shell Programming and Scripting

perl search and replace - search in first line and replance in 2nd line

Dear All, i want to search particular string and want to replance next line value. following is the test file. search string is tmp,??? ,10:1 "???" may contain any 3 character it should remain the same and next line replace with ,10:50 tmp,123 --- if match tmp,??? then...

4. UNIX for Dummies Questions & Answers

recursive search and ftp

Could someone help me in recursive search and ftp'ing the files to remote server? The host machine will have /dir1/dira/list_of_files1 /dir1/dirb/list_of_files2 /dir1/dirc/list_of_files3 . . . so., I need to search from dir1 recursively (only one level down) and find all the files that...

5. HP-UX

[Solved] Unable to rename file in ftp server .Net:FTP perl

Hello All, I am trying to connect to ftp server and get the files. Also i need to rename the file in other ftp dir. rename method is not allowing me to rename the file in other dir. When i tried copy command by using net::FTP:FILE then perl says it is not installed. Can some body help me to...

6. Shell Programming and Scripting

Perl - use search keywords from array and search a file and print 3rd field when matched

Hi , I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code. my $current_value=12345; my @users=("bob","ben","tom","harry"); open DBLIST,"<","/var/tmp/DBinfo"; my @input = <DBLIST>; foreach (@users) { my...

7. Shell Programming and Scripting

Perl - start search by using search button or by pressing the enter key

#Build label and text box $main->Label( -text => "Input string below:" )->pack(); $main->Entry( -textvariable => \$text456 )->pack(); $main->Button( -text => "Search", -command => sub { errchk ($text456) ...

8. UNIX for Beginners Questions & Answers

Grep/awk using a begin search pattern and end search pattern

I have this fileA TEST FILE ABC this file contains ABC; TEST FILE DGHT this file contains DGHT; TEST FILE 123 this file contains ABC, this file contains DEF, this file contains XYZ, this file contains KLM ; I want to have a fileZ that has only (begin search pattern for will be...

9. UNIX for Beginners Questions & Answers

How to use a grep search to search for a specific string within multiple directories?

Lets say I have a massive directory which is filled with other directories all filled with different c++ scripts and I want a listing of all the scripts that contain the string: "this string". Is there a way to use a grep search for that? I tried: grep -lr "this string" * but I do not...

LEARN ABOUT SUSE

gtk2::recentinfo

Gtk2::RecentInfo(3)					User Contributed Perl Documentation				       Gtk2::RecentInfo(3)

NAME

       Gtk2::RecentInfo

HIERARCHY

	 Glib::Boxed
	 +----Gtk2::RecentInfo

METHODS

   timestamp = $info->get_added;
   timestamp = $info->get_modified;
   timestamp = $info->get_visited;
       cut

   integer = $info->get_age
   (exec, count, timestamp) = $info->get_application_info ($app_name)
       o   $app_name (string)

   (applications) = $info->get_applications
   string = $info->get_description
   string = $info->get_display_name
   boolean = $info->exists
   (groups) = $info->get_groups
   boolean = $info->has_application ($app_name)
       o   $app_name (string)

   boolean = $info->has_group ($group_name)
       o   $group_name (string)

   pixbuf = $info->get_icon ($size)
       o   $size (integer)

   boolean = $info->is_local
   string = $info->last_application
   boolean = $info->match ($other_info)
       o   $other_info (Gtk2::RecentInfo)

   string = $info->get_mime_type
   unix timestamp = $info->get_modified
   boolean = $info->get_private_hint
   string = $info->get_short_name
   string = $info->get_uri_display
   string = $info->get_uri
   unix timestamp = $info->get_visited
SEE ALSO

       Gtk2, Glib::Boxed

COPYRIGHT

       Copyright (C) 2003-2008 by the gtk2-perl team.

       This software is licensed under the LGPL.  See Gtk2 for a full notice.

perl v5.12.1							    2010-07-05						       Gtk2::RecentInfo(3)