[mynk.sharma]

hi I'm PHP programmer. I don't know anything about Perl, I want this code in PHP.
Could anyone help me. its really very urgent.

Thanks in Advance

#!/usr/bin/perl
#
 
=head1 NAME
 
loadniabarticles.pl - Website Database Load NIAB Articles Table Script
 
=cut
 
use lib (qw(/home/bignm2/perl));
 
{
   package Website::LoadNIABArticles;
 
   use Website;
   use Carp;
 
   if (my $ws = new Website) {
      open SESSION, $ws->{'config'}{'path_of_sessions_directory'} .
'/sessions';
      eval { flock(SESSION, LOCK_EX) };
      eval { setpriority(0, $$, 20); };
      opendir DIR, "." or die "Cannot open current directory: $!";
      my @files = grep { m"\.txt$"o } readdir DIR;
      closedir DIR;
      die "Exiting - No Files Found." unless @files;
      $ws->connectdb();
      my $type = 'nichesinabox';
      my $status = 'loaded';
      my $table = 'articles';
      my $where = '';
      my $cols = 'MAX(id) + 1 AS nextid';
      my $attrs = { 'nocommas' => 1 };
      my $nextidref = $ws->selectdb($table, $where, $cols, $attrs);
      $nextid = $nextidref->[0]{'nextid'} || 1;
      foreach my $file (@files) {
         print $file, "\n";
         my ($keyphrase) = $file =~ m"^([-\w\s]+)\.txt"o;
         $keyphrase =~ s"[-_]" "go;
         $keyphrase = $ws->trim(lc($keyphrase));
         my $author = 'tomstraub';
         my $title = '';
         open FILE, $file or die "Cannot open file '$file': $!";
         my $content = '';
         for (my $counter = 1; my $line = <FILE>; $counter++) {
            chomp $line;
            $title = $ws->trim($line) if $counter == 1;
            next if $line =~ m"^\s*$"o or $counter <= 3;
            $line =~ s"\r""go;
            $line =~ s"^\s*""o;
            $line =~ s"\s*$""o;
            $line =~ s/\x{82}/,/go;
            $line =~ s/\x{85}/.../go;
            $line =~ s/\x{88}/^/go;
            $line =~ s/\x{8B}/</go;
            $line =~ s/\x{91}/'/go;
            $line =~ s/\x{92}/'/go;
            $line =~ s/\x{93}/"/go;
            $line =~ s/\x{94}/"/go;
            $line =~ s/\x{96}/-/go;
            $line =~ s/\x{97}/-/go;
            $line =~ s/\x{98}/~/go;
            $line =~ s/\x{9B}/>/go;
            $line =~ s/\x{A6}/|/go;
            $line =~ s/\x{A9}/(c)/go;
            $line =~ s/\x{AB}/<</go;
            $line =~ s/\x{AD}/-/go;
            $line =~ s/\x{AE}/(R)/go;
            $line =~ s/\x{B4}/'/go;
            $line =~ s/\x{BB}/>>/go;
            $line =~ s/\x{BC}/1\/4/go;
            $line =~ s/\x{BD}/1\/2/go;
            $line =~ s/\x{BE}/3\/4/go;
            $line =~ s/\x{D7}/x/go;
            $line =~ s/\x{F7}/\//go;
            $content .= "$line\n";
         }
         close FILE;
         my $colsref = {
            'id' => $nextid++,
            'keyphrase' => $keyphrase,
            'title' => $title,
            'content' => $content,
            'type' => $type,
            'status' => $status,
            'author' => $author,
         };
         my @errors = $ws->insertdb($table, $colsref);
         die $errors[0] if @errors;
      }
      $ws->disconnectdb();
      close SESSION;
      exit;
   }
   else {
      die $!;
   }
} 

[End User]

This would be a little complicated to convert directly, since it uses a specific module (package Website::LoadNIABArticles) which probably contains some additional code and functions.

[Drunken Perl Coder]

I think that is the LoadNIABArticles module:

package Website::LoadNIABArticles;

but it does use another module:

use Website;

not that I have any clue how to write that in PHP though.