[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-admin
Subject:    Re: Migrating thousands of user home, profile,
From:       Ryan Speight <ryan.speight () network-guard ! com>
Date:       2005-08-23 21:59:35
Message-ID: 20050823215936.79715.qmail () web312 ! biz ! mail ! mud ! yahoo ! com
[Download RAW message or body]

[Attachment #2 (multipart/alternative)]


try using the opendir function:
 
i.e.
 
my $dir2 = "D:\\TEST";
open DIR,"C:\TEST";
 
@DIRArray = readdir DIR;
 
close DIR;
 
This will dump all of the file names and directory names under C:\TEST into an array \
(@DIRArray) which you can then run a function to copy to another location.  
foreach $dir (@DIRArray) {
      copy $dir,$dir2;
}
 
make sense:
 
FYI - if you have a lot to move I may invoke the xcopy command in windows since it \
has a network switch which will allow it to pickup where it left off if the network \
connection gets dropped.  
i.e. system "xcopy /E /Z $dir $dir2"
 
you can also embed the command in the copy loop that says:
 
system "title Copying $dir to $dir2";
this will tell you in the titlebar of the DOS window where you are in the copy \
process.


glholmes@statestreet.com wrote:
One way would be like this.
($drive, $dir, $junk) = split(/\\/, $line);



----- Original Message -----
From: perl-win32-admin-bounces
Sent: 08/22/2005 06:01 AM
To: perl-win32-admin@listserv.ActiveState.com
Subject: Migrating thousands of user home, profile, apps and groups directory paths

Hi all, I am a newbie trying to create a function to determine the
highest level directory that I need to backup (robocopy) to correctly
move the files from one volume or server to another. I have created a
list of locations in a text file, and for the following examples, I
would like the function to return only 'E:\GRUPOS'.

E:\GRUPOS\GRUPALES
E:\GRUPOS\GRUPALES\POLÝTICAS Y PROCEDIMIENTOS E:\GRUPOS\SCANNER
E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP E:\GRUPOS\SEBA_SAP\MANUALES
SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP

or, 'E:\SPECIAL-test\USERS\PROFILES' with the group at the two at the end:

E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP
E:\SPECIAL-test\USERS\PROFILES\ADMIN

In fact I want to create a function that given a list it would return
an array of these 'base paths' that if I were to back them up, would
contain all the data directories I need. Something like:

$ret = find_base_paths(@dir_list, \@base_paths);

I have the feeling that this is quite simple, and probably only a
string based solution, but I cannot quite fathom how to do this. Here
is a subset of paths from just one of the 800 production servers;

Any ideas, modules, advice from people who have done this before
gratefully receieved.

E:\BCKPIVOTAL
E:\FREEHD
E:\GRUPOS\GRUPALES
E:\GRUPOS\GRUPALES\POLÝTICAS Y PROCEDIMIENTOS E:\GRUPOS\SCANNER
E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP E:\GRUPOS\SEBA_SAP\MANUALES
SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP E:\INTERFACES E:\PROFILESSA
E:\SAH_PROFS E:\SETUP E:\TS_PROFS E:\USERS\ACOSTCE1SAP E:\USERS\ADMIN
E:\USERS\ALVIGMA1SAP
E:\USERS\CAMPACE1
E:\USERS\CANOVCH1
E:\USERS\CANOVCH1SAP
E:\USERS\CANTARJU
E:\USERS\CAROSSJO
E:\USERS\CASTRCE1
E:\USERS\CAVIGRO1SAP
E:\USERS\CERESJA1
E:\USERS\CERESJA1SAP
E:\USERS\CUETOGU1SAP
E:\USERS\DIAZSU1
E:\USERS\DIRIEGU1
E:\USERS\ESPINMA1SAP
E:\USERS\FENOGAL1SAP
E:\USERS\FERELFA1
E:\USERS\FERNAMABSAP
E:\USERS\GALEAGU1
E:\USERS\GARCIGU1
E:\USERS\GASTAES1
E:\USERS\GENNANI1
E:\USERS\GIORDOS1SAP
E:\USERS\GIOSUGU1
E:\USERS\HERRMRI1SAP
E:\USERS\JIMENJU4
E:\USERS\KAPELSE1
E:\USERS\KENNYJU1SAP
E:\USERS\KIEKEJU1SAP
E:\USERS\LAMENMA1
E:\USERS\LAUDOPA2
E:\USERS\LAZARJO1SAP
E:\USERS\MANCUED1
E:\USERS\MARTICA2
E:\USERS\MARTICA2SAP
E:\USERS\MAYORPA1SAP
E:\USERS\MORICSE1
E:\USERS\NARDODI1
E:\USERS\PAOLUDA1
E:\USERS\PAOLUDA2SAP
E:\USERS\PARODPI1
E:\USERS\PEREZFR1
E:\USERS\PETTIHE1
E:\USERS\PITTAMA1
E:\USERS\PORTEEZ1
E:\USERS\REYJU1
E:\USERS\RODRIZU1
E:\USERS\ROMERMA1SAP
E:\USERS\RUGERPE1
E:\USERS\SALVAAR1
E:\USERS\SALVAAR1SAP
E:\USERS\SCALASE27
E:\USERS\SESTAES1
E:\USERS\SOUZAMA1SAP
E:\USERS\SUARESE1
E:\USERS\T105826
E:\USERS\T106106
E:\USERS\T134596
E:\USERS\T171773
E:\USERS\T182567
E:\USERS\T196511
E:\USERS\U119833
E:\USERS\U131999
E:\USERS\U132006
E:\USERS\U132013
E:\USERS\U164129
E:\USERS\U169246
E:\USERS\U176246
E:\USERS\U176533
E:\USERS\U176540
E:\USERS\U177758
E:\USERS\U181454
E:\USERS\U189231
E:\USERS\U196518
E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP
E:\SPECIAL-test\USERS\PROFILES\ADMIN

_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Ryan Speight <ryan.speight@network-guard.com> wrote:try using the opendir function:
 
i.e.
 
my $dir2 = "D:\\TEST";
open DIR,"C:\TEST";
 
@DIRArray = readdir DIR;
 
close DIR;
 
This will dump all of the file names and directory names under C:\TEST into an array \
(@DIRArray) which you can then run a function to copy to another location.  
foreach $dir (@DIRArray) {
      copy $dir,$dir2;
}
 
make sense:
 
FYI - if you have a lot to move I may invoke the xcopy command in windows since it \
has a network switch which will allow it to pickup where it left off if the network \
connection gets dropped.  
i.e. system "xcopy /E /Z $dir $dir2"
 
you can also embed the command in the copy loop that says:
 
system "title Copying $dir to $dir2";
this will tell you in the titlebar of the DOS window where you are in the copy \
process.


glholmes@statestreet.com wrote:
One way would be like this.
($drive, $dir, $junk) = split(/\\/, $line);



----- Original Message -----
From: perl-win32-admin-bounces
Sent: 08/22/2005 06:01 AM
To: perl-win32-admin@listserv.ActiveState.com
Subject: Migrating thousands of user home, profile, apps and groups directory paths

Hi all, I am a newbie trying to create a function to determine the
highest level directory that I need to backup (robocopy) to correctly
move the files from one volume or server to another. I have created a
list of locations in a text file, and for the following examples, I
would like the function to return only 'E:\GRUPOS'.

E:\GRUPOS\GRUPALES
E:\GRUPOS\GRUPALES\POLÝTICAS Y PROCEDIMIENTOS E:\GRUPOS\SCANNER
E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP E:\GRUPOS\SEBA_SAP\MANUALES
SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP

or, 'E:\SPECIAL-test\USERS\PROFILES' with the group at the two at the end:

E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP
E:\SPECIAL-test\USERS\PROFILES\ADMIN

In fact I want to create a function that given a list it would return
an array of these 'base paths' that if I were to back them up, would
contain all the data directories I need. Something like:

$ret = find_base_paths(@dir_list, \@base_paths);

I have the feeling that this is quite simple, and probably only a
string based solution, but I cannot quite fathom how to do this. Here
is a subset of paths from just one of the 800 production servers;

Any ideas, modules, advice from people who have done this before
gratefully receieved.

E:\BCKPIVOTAL
E:\FREEHD
E:\GRUPOS\GRUPALES
E:\GRUPOS\GRUPALES\POLÝTICAS Y PROCEDIMIENTOS E:\GRUPOS\SCANNER
E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP E:\GRUPOS\SEBA_SAP\MANUALES
SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP E:\INTERFACES E:\PROFILESSA
E:\SAH_PROFS E:\SETUP E:\TS_PROFS E:\USERS\ACOSTCE1SAP E:\USERS\ADMIN
E:\USERS\ALVIGMA1SAP
E:\USERS\CAMPACE1
E:\USERS\CANOVCH1
E:\USERS\CANOVCH1SAP
E:\USERS\CANTARJU
E:\USERS\CAROSSJO
E:\USERS\CASTRCE1
E:\USERS\CAVIGRO1SAP
E:\USERS\CERESJA1
E:\USERS\CERESJA1SAP
E:\USERS\CUETOGU1SAP
E:\USERS\DIAZSU1
E:\USERS\DIRIEGU1
E:\USERS\ESPINMA1SAP
E:\USERS\FENOGAL1SAP
E:\USERS\FERELFA1
E:\USERS\FERNAMABSAP
E:\USERS\GALEAGU1
E:\USERS\GARCIGU1
E:\USERS\GASTAES1
E:\USERS\GENNANI1
E:\USERS\GIORDOS1SAP
E:\USERS\GIOSUGU1
E:\USERS\HERRMRI1SAP
E:\USERS\JIMENJU4
E:\USERS\KAPELSE1
E:\USERS\KENNYJU1SAP
E:\USERS\KIEKEJU1SAP
E:\USERS\LAMENMA1
E:\USERS\LAUDOPA2
E:\USERS\LAZARJO1SAP
E:\USERS\MANCUED1
E:\USERS\MARTICA2
E:\USERS\MARTICA2SAP
E:\USERS\MAYORPA1SAP
E:\USERS\MORICSE1
E:\USERS\NARDODI1
E:\USERS\PAOLUDA1
E:\USERS\PAOLUDA2SAP
E:\USERS\PARODPI1
E:\USERS\PEREZFR1
E:\USERS\PETTIHE1
E:\USERS\PITTAMA1
E:\USERS\PORTEEZ1
E:\USERS \REYJU1
E:\USERS\RODRIZU1
E:\USERS\ROMERMA1SAP
E:\USERS\RUGERPE1
E:\USERS\SALVAAR1
E:\USERS\SALVAAR1SAP
E:\USERS\SCALASE27
E:\USERS\SESTAES1
E:\USERS\SOUZAMA1SAP
E:\USERS\SUARESE1
E:\USERS\T105826
E:\USERS\T106106
E:\USERS\T134596
E:\USERS\T171773
E:\USERS\T182567
E:\USERS\T196511
E:\USERS\U119833
E:\USERS\U131999
E:\USERS\U132006
E:\USERS\U132013
E:\USERS\U164129
E:\USERS\U169246
E:\USERS\U176246
E:\USERS\U176533
E:\USERS\U176540
E:\USERS\U177758
E:\USERS\U181454
E:\USERS\U189231
E:\USERS\U196518
E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP
E:\SPECIAL-test\USERS\PROFILES\ADMIN

_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


[Attachment #5 (text/html)]

<DIV>
<DIV>try using the opendir function:</DIV>
<DIV>&nbsp;</DIV>
<DIV>i.e.</DIV>
<DIV>&nbsp;</DIV>
<DIV>my $dir2 = "D:\\TEST";</DIV>
<DIV>open DIR,"C:\TEST";</DIV>
<DIV>&nbsp;</DIV>
<DIV>@DIRArray = readdir DIR;</DIV>
<DIV>&nbsp;</DIV>
<DIV>close DIR;</DIV>
<DIV>&nbsp;</DIV>
<DIV>This will dump all of the file names and directory names under C:\TEST into an \
array (@DIRArray) which you can then run a function to copy to another \
location.</DIV> <DIV>&nbsp;</DIV>
<DIV>foreach $dir (@DIRArray) {</DIV>
<DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; copy $dir,$dir2;</DIV>
<DIV>}</DIV>
<DIV>&nbsp;</DIV>
<DIV>make sense:</DIV>
<DIV>&nbsp;</DIV>
<DIV>FYI - if you have a lot to move I may invoke the xcopy command in windows since \
it has a network switch which will allow it to pickup where it left off if the \
network connection gets dropped.</DIV> <DIV>&nbsp;</DIV>
<DIV>i.e. system "xcopy /E /Z $dir $dir2"</DIV>
<DIV>&nbsp;</DIV>
<DIV>you can also embed the command in the copy loop that says:</DIV>
<DIV>&nbsp;</DIV>
<DIV>system "title Copying $dir to $dir2";</DIV>
<DIV>this will tell you in the titlebar of the DOS window where you are in the copy \
process.</DIV> <DIV><BR><BR><B><I>glholmes@statestreet.com</I></B> wrote:</DIV>
<BLOCKQUOTE class=replbq style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: \
#1010ff 2px solid">One way would be like this.<BR>($drive, $dir, $junk) = split(/\\/, \
$line);<BR><BR><BR><BR>----- Original Message -----<BR>From: \
perl-win32-admin-bounces<BR>Sent: 08/22/2005 06:01 AM<BR>To: \
perl-win32-admin@listserv.ActiveState.com<BR>Subject: Migrating thousands of user \
home, profile, apps and groups directory paths<BR><BR>Hi all, I am a newbie trying to \
create a function to determine the<BR>highest level directory that I need to backup \
(robocopy) to correctly<BR>move the files from one volume or server to another. I \
have created a<BR>list of locations in a text file, and for the following examples, \
I<BR>would like the function to return only \
'E:\GRUPOS'.<BR><BR>E:\GRUPOS\GRUPALES<BR>E:\GRUPOS\GRUPALES\POLÝTICAS Y \
PROCEDIMIENTOS E:\GRUPOS\SCANNER<BR>E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP \
E:\GRUPOS\SEBA_SAP\MANUALES<BR>SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP<BR><BR>or,  \
'E:\SPECIAL-test\USERS\PROFILES' with the group at the two at the \
end:<BR><BR>E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP<BR>E:\SPECIAL-test\USERS\PROFILES\ADMIN<BR><BR>In \
fact I want to create a function that given a list it would return<BR>an array of \
these 'base paths' that if I were to back them up, would<BR>contain all the data \
directories I need. Something like:<BR><BR>$ret = find_base_paths(@dir_list, \
\@base_paths);<BR><BR>I have the feeling that this is quite simple, and probably only \
a<BR>string based solution, but I cannot quite fathom how to do this. Here<BR>is a \
subset of paths from just one of the 800 production servers;<BR><BR>Any ideas, \
modules, advice from people who have done this before<BR>gratefully \
receieved.<BR><BR>E:\BCKPIVOTAL<BR>E:\FREEHD<BR>E:\GRUPOS\GRUPALES<BR>E:\GRUPOS\GRUPALES\POLÝTICAS \
Y PROCEDIMIENTOS E:\GRUPOS\SCANNER<BR>E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP \
E:\GRUPOS\SEBA_SAP\MANUALES<BR>SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP E:\INTERFACES  \
E:\PROFILESSA<BR>E:\SAH_PROFS E:\SETUP E:\TS_PROFS E:\USERS\ACOSTCE1SAP  \
E:\USERS\ADMIN<BR>E:\USERS\ALVIGMA1SAP<BR>E:\USERS\CAMPACE1<BR>E:\USERS\CANOVCH1<BR>E: \
\USERS\CANOVCH1SAP<BR>E:\USERS\CANTARJU<BR>E:\USERS\CAROSSJO<BR>E:\USERS\CASTRCE1<BR>E \
:\USERS\CAVIGRO1SAP<BR>E:\USERS\CERESJA1<BR>E:\USERS\CERESJA1SAP<BR>E:\USERS\CUETOGU1S \
AP<BR>E:\USERS\DIAZSU1<BR>E:\USERS\DIRIEGU1<BR>E:\USERS\ESPINMA1SAP<BR>E:\USERS\FENOGA \
L1SAP<BR>E:\USERS\FERELFA1<BR>E:\USERS\FERNAMABSAP<BR>E:\USERS\GALEAGU1<BR>E:\USERS\GA \
RCIGU1<BR>E:\USERS\GASTAES1<BR>E:\USERS\GENNANI1<BR>E:\USERS\GIORDOS1SAP<BR>E:\USERS\G \
IOSUGU1<BR>E:\USERS\HERRMRI1SAP<BR>E:\USERS\JIMENJU4<BR>E:\USERS\KAPELSE1<BR>E:\USERS\ \
KENNYJU1SAP<BR>E:\USERS\KIEKEJU1SAP<BR>E:\USERS\LAMENMA1<BR>E:\USERS\LAUDOPA2<BR>E:\US \
ERS\LAZARJO1SAP<BR>E:\USERS\MANCUED1<BR>E:\USERS\MARTICA2<BR>E:\USERS\MARTICA2SAP<BR>E \
:\USERS\MAYORPA1SAP<BR>E:\USERS\MORICSE1<BR>E:\USERS\NARDODI1<BR>E:\USERS\PAOLUDA1<BR> \
E:\USERS\PAOLUDA2SAP<BR>E:\USERS\PARODPI1<BR>E:\USERS\PEREZFR1<BR>E:\USERS\PETTIHE1<BR>E:\USERS\PITTAMA1<BR>E:\USERS\PORTEEZ1<BR!
  >E:\USERS
\REYJU1<BR>E:\USERS\RODRIZU1<BR>E:\USERS\ROMERMA1SAP<BR>E:\USERS\RUGERPE1<BR>E:\USERS\ \
SALVAAR1<BR>E:\USERS\SALVAAR1SAP<BR>E:\USERS\SCALASE27<BR>E:\USERS\SESTAES1<BR>E:\USER \
S\SOUZAMA1SAP<BR>E:\USERS\SUARESE1<BR>E:\USERS\T105826<BR>E:\USERS\T106106<BR>E:\USERS \
\T134596<BR>E:\USERS\T171773<BR>E:\USERS\T182567<BR>E:\USERS\T196511<BR>E:\USERS\U1198 \
33<BR>E:\USERS\U131999<BR>E:\USERS\U132006<BR>E:\USERS\U132013<BR>E:\USERS\U164129<BR> \
E:\USERS\U169246<BR>E:\USERS\U176246<BR>E:\USERS\U176533<BR>E:\USERS\U176540<BR>E:\USE \
RS\U177758<BR>E:\USERS\U181454<BR>E:\USERS\U189231<BR>E:\USERS\U196518<BR>E:\SPECIAL-t \
est\USERS\PROFILES\ALVIGMA1SAP<BR>E:\SPECIAL-test\USERS\PROFILES\ADMIN<BR><BR>_______________________________________________<BR>Perl-Win32-Admin \
mailing list<BR>Perl-Win32-Admin@listserv.ActiveState.com<BR>To unsubscribe: \
http://listserv.ActiveState.com/mailman/mysubs<BR><BR>_______________________________________________<BR>Perl-Win32-Admin \
mailing  list<BR>Perl-Win32-Admin@listserv.ActiveState.com<BR>To unsubscribe: \
http://listserv.ActiveState.com/mailman/mysubs<BR></BLOCKQUOTE><BR><BR><B><I>Ryan \
Speight &lt;ryan.speight@network-guard.com&gt;</I></B> wrote: <BLOCKQUOTE \
class=replbq style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #1010ff 2px \
solid"> <DIV>try using the opendir function:</DIV>
<DIV>&nbsp;</DIV>
<DIV>i.e.</DIV>
<DIV>&nbsp;</DIV>
<DIV>my $dir2 = "D:\\TEST";</DIV>
<DIV>open DIR,"C:\TEST";</DIV>
<DIV>&nbsp;</DIV>
<DIV>@DIRArray = readdir DIR;</DIV>
<DIV>&nbsp;</DIV>
<DIV>close DIR;</DIV>
<DIV>&nbsp;</DIV>
<DIV>This will dump all of the file names and directory names under C:\TEST into an \
array (@DIRArray) which you can then run a function to copy to another \
location.</DIV> <DIV>&nbsp;</DIV>
<DIV>foreach $dir (@DIRArray) {</DIV>
<DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; copy $dir,$dir2;</DIV>
<DIV>}</DIV>
<DIV>&nbsp;</DIV>
<DIV>make sense:</DIV>
<DIV>&nbsp;</DIV>
<DIV>FYI - if you have a lot to move I may invoke the xcopy command in windows since \
it has a network switch which will allow it to pickup where it left off if the \
network connection gets dropped.</DIV> <DIV>&nbsp;</DIV>
<DIV>i.e. system "xcopy /E /Z $dir $dir2"</DIV>
<DIV>&nbsp;</DIV>
<DIV>you can also embed the command in the copy loop that says:</DIV>
<DIV>&nbsp;</DIV>
<DIV>system "title Copying $dir to $dir2";</DIV>
<DIV>this will tell you in the titlebar of the DOS window where you are in the copy \
process.</DIV> <DIV><BR><BR><B><I>glholmes@statestreet.com</I></B> wrote:</DIV>
<BLOCKQUOTE class=replbq style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: \
#1010ff 2px solid">One way would be like this.<BR>($drive, $dir, $junk) = split(/\\/, \
$line);<BR><BR><BR><BR>----- Original Message -----<BR>From: \
perl-win32-admin-bounces<BR>Sent: 08/22/2005 06:01 AM<BR>To: \
perl-win32-admin@listserv.ActiveState.com<BR>Subject: Migrating thousands of user \
home, profile, apps and groups directory paths<BR><BR>Hi all, I am a newbie trying to \
create a function to determine the<BR>highest level directory that I need to backup \
(robocopy) to correctly<BR>move the files from one volume or server to another. I \
have created a<BR>list of locations in a text file, and for the following examples, \
I<BR>would like the function to return only \
'E:\GRUPOS'.<BR><BR>E:\GRUPOS\GRUPALES<BR>E:\GRUPOS\GRUPALES\POLÝTICAS Y \
PROCEDIMIENTOS E:\GRUPOS\SCANNER<BR>E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP \
E:\GRUPOS\SEBA_SAP\MANUALES<BR>SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP<BR><BR>or,  \
'E:\SPECIAL-test\USERS\PROFILES' with the group at the two at the \
end:<BR><BR>E:\SPECIAL-test\USERS\PROFILES\ALVIGMA1SAP<BR>E:\SPECIAL-test\USERS\PROFILES\ADMIN<BR><BR>In \
fact I want to create a function that given a list it would return<BR>an array of \
these 'base paths' that if I were to back them up, would<BR>contain all the data \
directories I need. Something like:<BR><BR>$ret = find_base_paths(@dir_list, \
\@base_paths);<BR><BR>I have the feeling that this is quite simple, and probably only \
a<BR>string based solution, but I cannot quite fathom how to do this. Here<BR>is a \
subset of paths from just one of the 800 production servers;<BR><BR>Any ideas, \
modules, advice from people who have done this before<BR>gratefully \
receieved.<BR><BR>E:\BCKPIVOTAL<BR>E:\FREEHD<BR>E:\GRUPOS\GRUPALES<BR>E:\GRUPOS\GRUPALES\POLÝTICAS \
Y PROCEDIMIENTOS E:\GRUPOS\SCANNER<BR>E:\GRUPOS\SE_GENERAL E:\GRUPOS\SEBA_SAP \
E:\GRUPOS\SEBA_SAP\MANUALES<BR>SAP E:\GRUPOS\SEBA_SAP\MANUALES SAP E:\INTERFACES  \
E:\PROFILESSA<BR>E:\SAH_PROFS E:\SETUP E:\TS_PROFS E:\USERS\ACOSTCE1SAP  \
E:\USERS\ADMIN<BR>E:\USERS\ALVIGMA1SAP<BR>E:\USERS\CAMPACE1<BR>E:\USERS\CANOVCH1<BR>E: \
\USERS\CANOVCH1SAP<BR>E:\USERS\CANTARJU<BR>E:\USERS\CAROSSJO<BR>E:\USERS\CASTRCE1<BR>E \
:\USERS\CAVIGRO1SAP<BR>E:\USERS\CERESJA1<BR>E:\USERS\CERESJA1SAP<BR>E:\USERS\CUETOGU1S \
AP<BR>E:\USERS\DIAZSU1<BR>E:\USERS\DIRIEGU1<BR>E:\USERS\ESPINMA1SAP<BR>E:\USERS\FENOGA \
L1SAP<BR>E:\USERS\FERELFA1<BR>E:\USERS\FERNAMABSAP<BR>E:\USERS\GALEAGU1<BR>E:\USERS\GA \
RCIGU1<BR>E:\USERS\GASTAES1<BR>E:\USERS\GENNANI1<BR>E:\USERS\GIORDOS1SAP<BR>E:\USERS\G \
IOSUGU1<BR>E:\USERS\HERRMRI1SAP<BR>E:\USERS\JIMENJU4<BR>E:\USERS\KAPELSE1<BR>E:\USERS\ \
KENNYJU1SAP<BR>E:\USERS\KIEKEJU1SAP<BR>E:\USERS\LAMENMA1<BR>E:\USERS\LAUDOPA2<BR>E:\US \
ERS\LAZARJO1SAP<BR>E:\USERS\MANCUED1<BR>E:\USERS\MARTICA2<BR>E:\USERS\MARTICA2SAP<BR>E \
:\USERS\MAYORPA1SAP<BR>E:\USERS\MORICSE1<BR>E:\USERS\NARDODI1<BR>E:\USERS\PAOLUDA1<BR> \
E:\USERS\PAOLUDA2SAP<BR>E:\USERS\PARODPI1<BR>E:\USERS\PEREZFR1<BR>E:\USERS\PETTIHE1<BR>E:\USERS\PITTAMA1<BR>E:\USERS\PORTEEZ1<BR!
  >E:\USERS
 \REYJU1<BR>E:\USERS\RODRIZU1<BR>E:\USERS\ROMERMA1SAP<BR>E:\USERS\RUGERPE1<BR>E:\USERS \
\SALVAAR1<BR>E:\USERS\SALVAAR1SAP<BR>E:\USERS\SCALASE27<BR>E:\USERS\SESTAES1<BR>E:\USE \
RS\SOUZAMA1SAP<BR>E:\USERS\SUARESE1<BR>E:\USERS\T105826<BR>E:\USERS\T106106<BR>E:\USER \
S\T134596<BR>E:\USERS\T171773<BR>E:\USERS\T182567<BR>E:\USERS\T196511<BR>E:\USERS\U119 \
833<BR>E:\USERS\U131999<BR>E:\USERS\U132006<BR>E:\USERS\U132013<BR>E:\USERS\U164129<BR \
>E:\USERS\U169246<BR>E:\USERS\U176246<BR>E:\USERS\U176533<BR>E:\USERS\U176540<BR>E:\US \
> ERS\U177758<BR>E:\USERS\U181454<BR>E:\USERS\U189231<BR>E:\USERS\U196518<BR>E:\SPECIA \
> L-test\USERS\PROFILES\ALVIGMA1SAP<BR>E:\SPECIAL-test\USERS\PROFILES\ADMIN<BR><BR>_______________________________________________<BR>Perl-Win32-Admin \
> mailing list<BR>Perl-Win32-Admin@listserv.ActiveState.com<BR>To unsubscribe: \
> http://listserv.ActiveState.com/mailman/mysubs<BR><BR>_______________________________________________<BR>Perl-Win32-Admin \
> mailing
 list<BR>Perl-Win32-Admin@listserv.ActiveState.com<BR>To unsubscribe: \
http://listserv.ActiveState.com/mailman/mysubs<BR></BLOCKQUOTE></BLOCKQUOTE></DIV>



_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


[prev in list] [next in list] [prev in thread] [next in thread] 

Configure | About | News | Add a list | Sponsored by KoreLogic