Jump to content

Pearl Scripting...urgent Help


Recommended Posts

Posted

a name kuda sync avvatledu.. 

 

24wvwgk.gif?1290165341convinient ga convret chesukunna..U,chicha

  • Replies 30
  • Created
  • Last Reply

Top Posters In This Topic

  • k2s

    8

  • Spartan

    7

  • Maximus

    4

  • puli_keka

    4

Top Posters In This Topic

Posted

using System;

using System.IO;

using System.Collections.Generic;

 

namespace Scoorge 

{

....

 

bemmiRTlaugh.gifbemmiRTlaugh.gif

adi java idi perl

Posted

Uchicha...tesion lo vesadu ani anukundammanna..asalu sync avatam ledu..title..tumblr_n3oawx1qFB1svwpr6o7_250.gif?14020

lol... yes PERL ....naku two reqruirements unay....

 

1. need to cpy reports (PDFs) from one folder to another folder ..

2. oka automation script kavali time based schedule cheyadaniki ..

 

first script na dagara undi.... but tappu ekado thantundii....

 

#----------------------------------------------------------
#Sub:copy_reports
#Args:nothing
#Ret:nothing
#----------------------------------------------------------
#Perform copying the reports from source directory to destination directory
#Overrides if the files already exist
#-----------------------------------------------------------
sub copy_reports{
my $source = "\\F:GO00SERVER\\Testfolder1";
my $dest = "\\F:GO00SERVER\\Testfolder2";
 
my $status = copy("Testfolder1.pdf","Testfolder2.pdf");
 
   
log_msg("*******COPYING REPORTS*******");
 
 
log_msg("*******REPORTS COPIED*******");
}
#---------------------------------------------------------
Posted

adi java idi perl

mari idi..manchu%20bemmi.gif?1290058754

 

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

my $source_dir = "path";
my $target_dir = "path";

copy $source => $target or warn "Copy of $file failed: $!";

opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!";
my @files = readdir($DIR);

foreach my $t (@files)
{
if(-f "$source_dir/$t" ) {
#Check with -f only for files
copy "$source_dir/$t", "$target_dir/$t";
}
}

closedir($DIR);

Posted

@TS..

 

2. oka automation script kavali time based schedule cheyadaniki .

 

 

windows system aite..u can schedule that task in Task Scheduler...time ki start aitadi a script...

Posted

mari idi..manchu%20bemmi.gif?1290058754

 

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

my $source_dir = "path";
my $target_dir = "path";

copy $source => $target or warn "Copy of $file failed: $!";

opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!";
my @files = readdir($DIR);

foreach my $t (@files)
{
if(-f "$source_dir/$t" ) {
#Check with -f only for files
copy "$source_dir/$t", "$target_dir/$t";
}
}

closedir($DIR);

 

google.com nunchi etukonchindi...  bemmiRTlaugh.gif

Posted

mari idi..manchu%20bemmi.gif?1290058754

 

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

my $source_dir = "path";
my $target_dir = "path";

copy $source => $target or warn "Copy of $file failed: $!";

opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!";
my @files = readdir($DIR);

foreach my $t (@files)
{
if(-f "$source_dir/$t" ) {
#Check with -f only for files
copy "$source_dir/$t", "$target_dir/$t";
}
}

closedir($DIR);

$ undi antey its perilllllllll man bra_8.gif

Posted

$ undi antey its perilllllllll man bra_8.gif

 

what about powershell man. memu bhi $ use chestham for variables  bye1  bye1

Posted

$ undi antey its perilllllllll man bra_8.gif

 

bra_8.gif

Posted

what about powershell man. memu bhi $ use chestham for variables  bye1  bye1

 

python/perl & rest of languages 

thats it

Posted

 

lol... yes PERL ....naku two reqruirements unay....

 

1. need to cpy reports (PDFs) from one folder to another folder ..

2. oka automation script kavali time based schedule cheyadaniki ..

 

first script na dagara undi.... but tappu ekado thantundii....

 

#----------------------------------------------------------
#Sub:copy_reports
#Args:nothing
#Ret:nothing
#----------------------------------------------------------
#Perform copying the reports from source directory to destination directory
#Overrides if the files already exist
#-----------------------------------------------------------
sub copy_reports{
my $source = "\\F:GO00SERVER\\Testfolder1";
my $dest = "\\F:GO00SERVER\\Testfolder2";
 
my $status = copy("Testfolder1.pdf","Testfolder2.pdf");
 
   
log_msg("*******COPYING REPORTS*******");
 
 
log_msg("*******REPORTS COPIED*******");
}
#---------------------------------------------------------

 

 

 

paapam helpp LTT

×
×
  • Create New...