in reply to Failed to display my expected output from my code using perl cgi?

Hello finddata, read perlretut
  • Comment on Re: Not enough arguments script with my perl cgi script?

Replies are listed 'Best First'.
Re^2: Not enough arguments script with my perl cgi script?
by gopikavi (Initiate) on May 08, 2017 at 07:08 UTC
    Edited my code.But seems to be problem .

    Original content restored below by [GrandFather.

    EDITED MY CODE BY THOSE DOCUMENTATION WHICH YOU HAVE PROVIDED ME.WHICH MISTAKE BY ME HAD BRING ME WRONG OUTPUT FROM THE ABOVE CODE

      Use a capture () to extract the part you want

      #!/usr/bin/local/perl use strict; use Data::Dump 'pp'; my @project_name = (); while (my $line = <DATA>){ if ( $line =~ m!\[(.*):/\]! ){ push @project_name,$1; } } pp \@project_name; __DATA__ cpfskTeam = sonkar, mobrien3, dokeeff2, pquinla, hkumar3 [cpfsk:/] * = r @cpfskTeam = rw @serveradmins = rw @svnadmin = rw
      poj
      you can't guess at the syntax you're supposed to use, the good news is you dont have to guess, copy/paste from the documentation