Re: Unable to finally commit the changes made to some lines in a file using Tie::file

[John W. Krahn]

[EMAIL PROTECTED] wrote:
Hi,

Hello,

I am trying to modify my iTunes Playlist and I want to prepend every
playlist name with a specific pseudonym ...

I wrote a perl script using Perl::Tie module. Unfortunately, it doesnt
write the contents of my array to the file after it is done processing
each and every line in the file ...

I am attaching the script and the playlist file ...

Any hint how to finally untie and dump the modified contents to the
same input file i.e. the playlist file ...

Thanks in advance..

--Sonal

Please find the script here:

#!/usr/bin/perl -w

use strict;
use warnings;
use Tie::File;

my $ITUNES_FILE_PATH = "/cygdrive/d/MyDocuments/My Music/iTunes";
my $ITUNES_LIBRARY_FILE_NAME = "iTunes Music Library1.txt";
my $ITUNES_LIBRARY_FILE = "$ITUNES_FILE_PATH/
$ITUNES_LIBRARY_FILE_NAME";
my $PREPEND_PLAYLIST_KEY = "OEL: ";
print "$ITUNES_LIBRARY_FILE\n";

tie my @lines, 'Tie::File', $ITUNES_LIBRARY_FILE_NAME or die "Can't
tie $ITUNES_LIBRARY_FILE $!";

When you use Tie::File any changes made to the contents of @lines will 
be changed in the file itself.


for my $i (0..$#lines) {
   if ( $lines[$i] =~ /::/ ) {
          my $matched_line = $lines[$i];

$matched_line is a copy of $lines[$i].

          #print "$matched_line\n";
          my @charArray = split(//, $matched_line);

@charArray is another copy of $lines[$i].

          # split with null pattern will split on everything.
          # so in this case it will be an array of characters
      #print "$#charArray\n";
      #print "$charArray[26]\n";
      #print "$charArray[$#charArray-10]$charArray[$#charArray-11]\n";

      #Use this splice example to insert
      #my @browser = ("NS", "IE", "Opera");
      #splice @browser, 0, 0, 'Mosaic';
      #print "@browser\n";

      splice(@charArray, $#charArray-11, 2);
      splice @charArray, 26, 0, $PREPEND_PLAYLIST_KEY;
      print "@charArray\n";

Nowhere do you modify $lines[$i] which means that you are not modifying 
the file itself.

   }
}
untie @lines;
#close $ITUNES_LIBRARY_FILE;


Please find the file I am trying to modify here:

        </dict>
                        <key>Name</key><string>Sushma Darshan 08::</string>
                        <key>Playlist ID</key><integer>61636</integer>
                        <key>Playlist Persistent 
ID</key><string>9C1DDB98AD8E3878</string>
                        <key>All Items</key><true/>
                        <key>Playlist Items</key>
                        <array>
                                <dict>
                                        <key>Track 
ID</key><integer>16874</integer>
                                </array>
                </dict>
        </dict>

It looks like you may need an XML module to work on that file?



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/