http://qs321.pair.com?node_id=420851

jalewis2 has asked for the wisdom of the Perl Monks concerning the following question:

I want to create ISOs for burning DVDs from a large directory. I thought it would be cool to have the script work to maximize the space used on the DVD. For example, I have 25 GB of data and DVDs that hold 4.7GB and the script tries to make as few ISOs as posssible to backup the data.

I figured I could read all the files with File::Find. Get their size with stat() and then start breaking them up into lists that total 4.7GB. Add each list to a hash with the file size. Then with magic, I would add each group to an ISO.

I have seen a couple of scripts that kind of do this, but they are designed to burn the DVD as they are building the next ISO. They also seemed to be overkill for what I want. My DVD burner is on another computer, so I want to create ISOs that I can burn one at a time.

Has this been done? Is there a better way?