Feed a directory listing to a script

**Anno Siegel** · Aug 8 '05, 09:55 AM

Re: Feed a directory listing to a script

Shabam <chalupa@yoma ma-nospam.com> wrote in comp.lang.perl. misc:[color=blue]
> I have a command script that backs up a user account. This involves moving
> files from different directories into an archive.
>
> Now, I need that script to back up all user accounts on the system, by going
> through the directory structure and running the backup script on each one.
> Can someone show me how this can be done? I'm not a perl programmer and
> have only dabbled a bit in it.
>
> My directory structure is like this:
>
> /Users/0/
> /Users/1/
> /Users/2/
> /Users/3/
> ... so on...
>
> User account names reside in those folders, so user jason would be in
> "Users/j/jason".[/color]

So what have you tried so far, and how does it fail?
[color=blue]
> Please don't tell me to just tar/gz the /Users/ directory. That will not
> work for this because it will be greater than 4GBs,[/color]

So?
[color=blue]
> and it won't allow me to
> restore accounts individually.[/color]

Ah, but it does. The problem is, you'd have to read through the entire
tar file, but you can restore any selection of files you want.

Anno
--
If you want to post a followup via groups.google.c om, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.

**Joe Smith** · Aug 8 '05, 08:05 PM

Re: Feed a directory listing to a script

Shabam wrote:[color=blue]
> I have a command script that backs up a user account. This involves moving
> files from different directories into an archive.
>
> Now, I need that script to back up all user accounts on the system, by going
> through the directory structure and running the backup script on each one.[/color]

Here is a hint:

perl -le 'while(($user,$ pw,$uid,$gid,$q ,$c,$name,$home )=getpwent){pri nt
"~$user = $home for $name" if $uid > 100}'
[color=blue]
> Can someone show me how this can be done? I'm not a perl programmer and
> have only dabbled a bit in it.[/color]

OK, here's another hint. Replace the print() part with this:

system "tar cvf $user.tar $home >$user.dir 2>>error.log";

-Joe

P.S. Next time, do not include comp.lang.perl; it has been replaced
by the comp.lang.perl. misc newsgroup.

**Shabam** · Aug 9 '05, 04:55 AM

Re: Feed a directory listing to a script

> > Please don't tell me to just tar/gz the /Users/ directory. That will
not[color=blue][color=green]
> > work for this because it will be greater than 4GBs,[/color]
>
> So?[/color]

You don't get it do you?

**Matthew King** · Aug 9 '05, 08:45 PM

Re: Feed a directory listing to a script

"Shabam" <chalupa@yoma ma-nospam.com> writes:
[color=blue]
> My directory structure is like this:
>
> /Users/0/
> /Users/1/
> /Users/2/
> /Users/3/
> ... so on...
>
> User account names reside in those folders, so user jason would be in
> "Users/j/jason".[/color]

You don't even need to use perl, you can do this directly in bash:

for k in /Users/*/*/; do run_backup_scri pt "$k"; done

The perl equivalent would look similar but IIRC be a bit mor involved.

Matthew

--
I must take issue with the term "a mere child," for it has been my
invariable experience that the company of a mere child is infinitely
preferable to that of a mere adult.
-- Fran Lebowitz

**Joe Smith** · Aug 10 '05, 06:55 AM

Re: Feed a directory listing to a script

Shabam wrote:[color=blue][color=green][color=darkred]
>>> Please don't tell me to just tar/gz the /Users/ directory.
>>> That will not work for this because it will be greater than 4GBs,[/color]
>>
>>So?[/color]
>
> You don't get it do you?[/color]

Get what? Modern versions of tar can create archive files of
greater than 2 or 4 gigabytes.

linux% ls -l 5gigabyte.zip
-rw-r--r-- 1 jms jms 5751592946 May 3 19:37 5gigabyte.zip
linux% tar cf 5gb.tar 2005-03-01.zip
linux% ls -l 5gb.tar
-rw-r--r-- 1 jms jms 5751603200 Aug 9 22:30 5gb.tar

So why do you say 4GB wont work?

-Joe

**Justin C** · Aug 10 '05, 06:45 PM

Re: Feed a directory listing to a script

On 2005-08-10, Joe Smith <joe@inwap.co m> wrote:[color=blue]
> Shabam wrote:[color=green][color=darkred]
>>>> Please don't tell me to just tar/gz the /Users/ directory.
>>>> That will not work for this because it will be greater than 4GBs,
>>>
>>>So?[/color]
>>
>> You don't get it do you?[/color]
>
> Get what? Modern versions of tar can create archive files of
> greater than 2 or 4 gigabytes.[/color]

Maybe the OP has a DAT drive that doesn't support tapes bigger than
2/4GB?

Justin.

--
Justin C, by the sea.

**sunjingwei** · Aug 23 '05, 09:45 AM

Re: Feed a directory listing to a script

good
how do i know that ?
and this is a test..

--
?????????
?!

??????????????? ??
??????????????s unjingwei@baidu .com
???????????????
"Joe Smith" <joe@inwap.co m> ???? news:CrOdneBuO7 hEPGTfRVn-2A@comcast.com. ..[color=blue]
> Shabam wrote:[color=green][color=darkred]
> >>> Please don't tell me to just tar/gz the /Users/ directory.
> >>> That will not work for this because it will be greater than 4GBs,
> >>
> >>So?[/color]
> >
> > You don't get it do you?[/color]
>
> Get what? Modern versions of tar can create archive files of
> greater than 2 or 4 gigabytes.
>
> linux% ls -l 5gigabyte.zip
> -rw-r--r-- 1 jms jms 5751592946 May 3 19:37 5gigabyte.zip
> linux% tar cf 5gb.tar 2005-03-01.zip
> linux% ls -l 5gb.tar
> -rw-r--r-- 1 jms jms 5751603200 Aug 9 22:30 5gb.tar
>
> So why do you say 4GB wont work?
>
> -Joe[/color]

**Tim X** · Sep 25 '05, 12:45 PM

Re: Feed a directory listing to a script

"Shabam" <chalupa@yoma ma-nospam.com> writes:
[color=blue]
> I have a command script that backs up a user account. This involves moving
> files from different directories into an archive.
>
> Now, I need that script to back up all user accounts on the system, by going
> through the directory structure and running the backup script on each one.
> Can someone show me how this can be done? I'm not a perl programmer and
> have only dabbled a bit in it.
>
> My directory structure is like this:
>
> /Users/0/
> /Users/1/
> /Users/2/
> /Users/3/
> ... so on...
>
> User account names reside in those folders, so user jason would be in
> "Users/j/jason".
>
> Please don't tell me to just tar/gz the /Users/ directory. That will not
> work for this because it will be greater than 4GBs, and it won't allow me to
> restore accounts individually.
>[/color]

Firstly, if your not a perl programmer, why do you plan to use perl
for this task? This could easily be done with just a bash script.

Secondly, your statement about not being able to extract individual
account data from a single tar file is incorrect. You can extract
individual files or groups of files from a tar archive.

The basic building blocks for your script are two loops. The outer
loop goes through the outer list of directories and for each of those,
the inner loop goes through the user accounts in each directory and
processes them in whatever way you want.

The perl functions you probably want are opendir and readdir. Try
perldoc -f readdir, but to be honest, if your not a perl programmer,
save yourself time and just use bash (unless you want to learn perl).

Tim

--
Tim Cross
The e-mail address on this message is FALSE (obviously!). My real e-mail is
to a company in Australia called rapttech and my login is tcross - if you
really need to send mail, you should be able to work it out!

Feed a directory listing to a script

Feed a directory listing to a script

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment