Recent content by BrianAtWork

I thought I remembered something like this in my Perl Hacks book... Hack #74 says to use Devel::TraceUse Like this: perl -MDevel::TraceUse myscript.pl And gives output something like this: Modules used from myscript.pl: 1. strict 1.03, myscript.pl line 2 [main] 2. warnings 1.03...

Which Database server are you using? I'm guessing either SQL Server or SyBase. I was reading the DBI documentation (http://search.cpan.org/~timb/DBI-1.605/DBI.pm#Handling_BLOB_/_LONG_/_Memo_Fields). Apparently you can set $dbh->{LongReadLen} or $dbh->{LongTruncOk} (to truncate long data)...

Try something like this to see what I was talking about: $line = 'hello(()())'; @captures = $line =~ /([\(\)]*)/g; #added the "g" flag for global print "$_\n" foreach (@captures);

I got to my Unix box and tested it - I see what was happening. It was the fault of the star, I believe. The star says "match zero or more". The letter "h" in your string "hello" matches "zero or more" parenthesis, so $1 was '' - it matched the "h" but didn't capture anything. The plus sign...

I think your star is not being greedy enough? Try changing your "*" to a "+" and see if you get better results.

Not sure about the data-conversion error. I would try running your query outside of Perl and see if you get the error or not.

Your second one should be printing to STDOUT instead of OUTF if you want to see it on the screen. Are you seeing multiple "TESTING" lines appear on your screen? If so, something seems a little off - Your query is "select Audio_Data from English_English where Audio_Name = 'ENG_2.WAV'" - I would...

Maybe you have done this, but I would make sure you are getting something returned from your database query. Maybe inside your while loop, inside your foreach loop, do: while(@first = $sth->fetchrow_array) { foreach $field(@first) { print STDOUT "TESTING\n"; print OUTF...

Try adding this line: if ( ! -e $filefull ) { print "$filefull does not exist\n"; } if ( ! -r $filefull ) { print "$filefull is not readable\n"; }

Does the user that the http server is using have permissions on the files or the directory that the files are in? Do all of the files get the exact same time and size=0?

There could be a problem with this line: my ($day, $month, $day, $time, $year) = split(/ /, $j); You are using $day twice. I also prefer to use POSIX and then get my date string like this: use POSIX; my $md = strftime("%d %b %H:%M", localtime($m)); Just a preference though

Sounds like you need the strftime function? Not exactly sure how you are handling this date, but if you had it in a variable called createdDate, then try this: createdDate.strftime("Created Date: %m/%d/%Y at %I:%M%p")

What OS are you trying to build DBD::mysql on? Is the MySQL client already installed and working (outside of perl)? If so, where are the MySQL libraries (ex. /usr/local/mysql/lib)? You may have to tell the Makefile.PL where the MySQL libraries are located. The "Referenced Symbol not found"...

Have you checked out the Lingua::EN::Numbers module? (Assuming you need English) use Lingua::EN::Numbers qw(num2en num2en_ordinal); my $x = 234; my $y = 54; print "You have ", num2en($x), " things to do today!\n"; print "You will stop caring after the ", num2en_ordinal($y), ".\n"...

I'm on AIX 5.3 and it worked for me. What part is not working? Is it dying on "Cannot open..." or is it exiting with a 1 inside your unless statement?