open (CONT, “>:utf8″,”$thread\/$thread.html”);

I am using http://strawberryperl.com/ for windows.

It seems you copy-pasted the script into your terminal. Unfortunately, this is not the way to go.
You need to save the script as a .pl file. For example: test.pl
Then you need to navigate to the directory (Save the script in your home directory if you’re unsure how to do this)
And then run it in a terminal with either:
./test.pl or perl test.pl

Best regards,

~Tom

This is what I get:

m@5920lak:~$ #!/usr/bin/perl
m@5920lak:~$ # pidgin-recovery.pl
m@5920lak:~$ # Sat Oct 02 21:28:17 2010
m@5920lak:~$ # Copyright 2010 jolttz
m@5920lak:~$ # jolttz{ät}gmail{dot}com
m@5920lak:~$ #
m@5920lak:~$
m@5920lak:~$ use strict;
No command ‘use’ found, did you mean:
Command ‘muse’ from package ‘muse’ (universe)
Command ‘uae’ from package ‘uae’ (multiverse)
use: command not found
m@5920lak:~$ use warnings;
No command ‘use’ found, did you mean:
Command ‘muse’ from package ‘muse’ (universe)
Command ‘uae’ from package ‘uae’ (multiverse)
use: command not found
m@5920lak:~$
m@5920lak:~$ my $home = $ENV{HOME}; # Home dir for Linux
my: command not found
m@5920lak:~$
m@5920lak:~$ if ($^O =~ /mswin/i) { # If OS is Windows
bash: syntax error near unexpected token `{‘
m@5920lak:~$ # Get home dir for Win and add App Data folder to it
m@5920lak:~$ $home = $ENV{USERPROFILE}. “/Application Data”;
=: command not found
m@5920lak:~$ }
bash: syntax error near unexpected token `}’
m@5920lak:~$
m@5920lak:~$ # Open the file that contains accounts info
m@5920lak:~$ open (FILE, “$home/.purple/accounts.xml”) || die (“Could not open file!”);
bash: !”: event not found
m@5920lak:~$
m@5920lak:~$ # Go through each line and print the info we are looking for
m@5920lak:~$ foreach my $line () {
bash: syntax error near unexpected token `(‘
m@5920lak:~$ if ($line =~ /(.+)/) {
bash: syntax error near unexpected token `{‘
m@5920lak:~$ print “————————–\n”;
m@5920lak:~$ print “Protocol: “. $1. “\n”;
Warning: unknown mime-type for “Protocol: .” — using “application/octet-stream”
Warning: unknown mime-type for “.” — using “application/octet-stream”
Warning: unknown mime-type for “\n” — using “application/octet-stream”
Error: no such file “Protocol: .”
Error: no “print” mailcap rules found for type “application/octet-stream”
Error: no such file “\n”
m@5920lak:~$ } elsif ($line =~ /(.+)/) {
bash: syntax error near unexpected token `}’
m@5920lak:~$ print “Name: “. $1. “\n”;
Warning: unknown mime-type for “Name: .” — using “application/octet-stream”
Warning: unknown mime-type for “.” — using “application/octet-stream”
Warning: unknown mime-type for “\n” — using “application/octet-stream”
Error: no such file “Name: .”
Error: no “print” mailcap rules found for type “application/octet-stream”
Error: no such file “\n”
m@5920lak:~$ } elsif ($line =~ /(.+)/) {
bash: syntax error near unexpected token `}’
m@5920lak:~$ print “Password: “. $1. “\n”;
Warning: unknown mime-type for “Password: .” — using “application/octet-stream”
Warning: unknown mime-type for “.” — using “application/octet-stream”
Warning: unknown mime-type for “\n” — using “application/octet-stream”
Error: no such file “Password: .”
Error: no “print” mailcap rules found for type “application/octet-stream”
Error: no such file “\n”
m@5920lak:~$ }
bash: syntax error near unexpected token `}’
m@5920lak:~$ }

I hope you’re so kind as to help me out with this.

Any suggestions?

Ubuntu 10.04

Of course it’s Perl!
Down there right now. Haven’t been there for a while, I know, but I’ve just been quite busy.

See you around,

~Tom

Haven’t seen you in #perl for a while. Are you gone for good?