Search Results

Search found 5595 results on 224 pages for 'mod perl'.

Page 36/224 | < Previous Page | 32 33 34 35 36 37 38 39 40 41 42 43  | Next Page >

• Auto Generate Objects in DBIx::Class ORM in Perl

  - by Sam

  Hello, I started learning DBIx::class and I reach the point where you have to create the Objects that represents tables. Should this classes be created manually ( hard coding all the fields and relationships.....) or there is a way to generate them automatically using the database schema. I read something about loaders, but i did not know where…

  Read the article

• perl array of array of hashes sorting

  - by srk

  @aoaoh; $aoaoh[0][0]{21} = 31; $aoaoh[0][0]{22} = 31; $aoaoh[0][0]{23} = 17; for $k(0.. $#aoaoh) { for $i(0.. $#aoaoh) { for $val (keys %{$aoaoh[$i][$k]}) { print "$val=$aoaoh[$i][$k]{$val}"; print "\n"; }} } output is 22=31 21=31 23=17 but i expect it to be 21=31 22=31 23=17 Please tell me where is this wrong.. Also how do…

  Read the article

• getting error in perl :can't modify non-lvalue subroutine call

  - by dexter

  i have index.pl and subs.pl when i run the program user inserts date of birth and then it is passed to getage() subroutine in subs.pl . subs.pl has many subroutines. getage() than implicitly calls another subroutine called validate() which validates the date entered by user. when i run the index.pl user enters the date as: 03-04-2005 following…

  Read the article

• how to install module in Active Perl

  - by coure06

  i want to install this module http://search.cpan.org/~bjoern/SGML-Parser-OpenSP/ in ActivePerl. Any idea what steps should i follow?

  Read the article

• how to check whether for each value in array is a numeric, alphabetical or alphanumeric (Perl)

  - by dexter

  i have array which values are user input like: aa df rrr5 4323 54 hjy 10 gj @fgf %d would be that array, now i want to check each value in array whether its numeric or alphabetic (a-zA-Z) or alphanumeric and save them in other respective arrays i have done: my @num; my @char; my @alphanum; my $str =<>; my @temp = split("…

  Read the article

• Match over multiple lines perl regular expression

  - by John

  Hi, I have a file like this: 01 00 01 14 c0 00 01 10 01 00 00 16 00 00 00 64 00 00 00 65 00 00 01 07 40 00 00 22 68 61 6c 2e 6f 70 65 6e 65 74 2e 63 6f 6d 3b 30 30 30 30 30 30 30 30 32 3b 30 00 00 00 00 01 08 40 00 00 1e 68 61 6c 2e 6f 70 65 6e 65 74 2d 74 65 6c 65 63 6f 6d 2e 6c 61 6e 00 00 00 00 01 28 40 00 00 21 72 65 61 6c 6d 31 2e 6f…

  Read the article

• Why wont this perl array sort work?

  - by Luke

  Why wont the array sort? CODE my @data = ('PJ RER Apts to Share|PROVIDENCE', 'PJ RER Apts to Share|JOHNSTON', 'PJ RER Apts to Share|JOHNSTON', 'PJ RER Apts to Share|JOHNSTON', 'PJ RER Condo|WEST WARWICK', 'PJ RER Condo|WARWICK'); foreach my $line (@data) { $count = @data; chomp($line); @fields =…

  Read the article

• Perl Regex Multiple Items in Single String

  - by Sho Minamimoto

  I'm trying to parse a single string and get multiple chunks of data out from the same string with the same regex conditions. I'm parsing a single HTML doc that is static (For an undisclosed reason, I can't use an HTML parser to do the job.) I have an expression that looks like $string =~ /\<img\ssrc\="(.*)"/; and I want…

  Read the article

• Perl open file problem

  - by alexBrand

  I am having some trouble trying to print from a file. Any ideas? Thanks open(STDOUT,">/home/int420_101a05/shttpd/htdocs/receipt.html"); print "alex"; close(STDOUT); open(INF,"/home/int420_101a05/shttpd/htdocs/receipt.html"); $emailBody = <INF>; close(INF); print $emailBody; ERRORS: Filehandle STDOUT reopened as…

  Read the article

• Perl Insert Lines

  - by thebourneid

  How to change this code to insert lines if missing without deleting existing ones tie my @lines, 'Tie::File', $fn or die "could not tie file: $!"; for (my $i = 0; $i < @lines; $i++) { if ($ln_title == 0) { if ($i < $#lines and $lines[$i] =~ /(\s+TRACK \d\d…

  Read the article

• Yet another "What is this code doing"-type of Perl code

  - by Mike

  I have inherited some code from a guy whose favorite past time was to shorten every line to its absolute minimum (and sometimes only to make it look cool). His code is hard to understand but I managed to understand (and rewrite) most of it. Now I have stumbled on a piece of code which, no matter how hard I try, I cannot…

  Read the article

• how to identify an argument as a "Year" in PERL

  - by dexter

  i have created a file argument.pl which takes several arguments first of which should be in form of a year example of argument : 2010 23 type here 2010 is a year my code does something like: use strict; use warning use Date::Calc qw(:all); my ($startyear, $startmonth, $startday) = Today(); my $weekofyear =…

  Read the article

• perl, before executing a function

  - by hermanningjaldsson

  I am writing a module and I want a specific piece of code to be executed before each of the functions in it. How do I do that? Is there no other way than to just have a function-call at the beginning of every function?

  Read the article

• Regular Expression to parse a string from end until a delimiter is reached(Perl)

  - by Zerobu

  Hello, I need a regular expression to parse a text, the text is a URL. The URL is http://www.foo.com/bar/hello.txt. I want to get rid of the hello.txt, the delimiter is the slash. I would like to get http://www.foo.com/bar/

  Read the article

• Is there a regular expression to remove a trailing slash in Perl

  - by Zerobu

  Hello, I would like to remove a trailing slash from a string. For example if i have a string called $test = "test/". How would i remove the slash at the end?

  Read the article

• Perl Regex Output only characters that can be used as unix filename

  - by Jeff Balinsky

  I wrote a basic mp3 organizing script for myself. I know the power of regex but I suck with the syntax I have the line $outname = "/home/jebsky/safehouse/music/mp3/" . $inital . "/" . $artist . "/" . $year ." - ". $album . "/" . $track ." - ". $artist ." - ". $title . ".mp3"; All I want is a regex to change…

  Read the article

• problem storing a hash in DB using Storage::nfreeze Perl

  - by Sam

  Hello, I want to insert a hash in the db using Storage::nfreeze but the data is not inserted properly. the code is as follow: %rec=(); $rec{'name'} = 'my name'; $rec{'address'} = 'my address'; my $order1 = new Order(); $order1->set_session(\%rec); $self->createOrder($order1); sub createOrder { my…

  Read the article

• kerberos perl module

  - by SCNCN2010

  What is best module that enable Active directory password kerberos authentication ? is there any linux ulity which can do kerberos encryption ?

  Read the article

• Perl Encode - UK characters

  - by Phill Pafford

  This is a part 2 question from This Question. So I'm trying out the :encode functionality but having no luck at all. use Encode; use utf8; # Should print: iso-8859-15 print "Latin-9 Encoding: ".find_encoding("latin9")->name."\n"; my $encUK = encode("iso-8859-15", "UK €"); print "Encoded UK:…

  Read the article

• Perl grep function

  - by portoalet

  Hi, How does the following grep function works (what does !/0o1Iil]/ do? ) @chars = grep !/0o1Iil]/, 0..9, "A".."Z", "a".."z"; use Data::Dumper; print Dumper @chars; to produce the following in @chars? $VAR1 = 0; $VAR2 = 1; $VAR3 = 2; $VAR4 = 3; $VAR5 = 4; $VAR6 = 5; $VAR7 = 6; $VAR8 = 7;…

  Read the article

• Can I run my mod_perl aplication as an ordinary user

  - by Gurunandan

  Can I run my mod_perl aplication as an ordinary user similar to running a plain vanilla CGI application under suexec?

  Read the article

• split function in perl

  - by devtech

  Hello, Please kindly help me in the following, I have $sub = C:\views\sght\gzad\text\hksdk\akldls\hool.java = C:\views\sght\bdsk\text\hksdfg\sdjks\same.java = C:\views\jdjk\jhah\fjd\afhlad\sitklds\hgls.jsp I need to replace every "\" with a "." I need to split the $sub…

  Read the article

• Perl pattern matching with zero width assertion

  - by Simone

  Hi everyone, I can't get why this code work: $seq = 'GAGAGAGA'; my $regexp = '(?=((G[UCGA][GA]A)|(U[GA]CG)|(CUUG)))'; # zero width match while ($seq =~ /$regexp/g){ # globally my $pos = pos($seq) + 1; # position of a zero width matching print "$1 position $pos\n"; } I know this is…

  Read the article

• How to compare arrays in Perl?

  - by devtech

  I have two arrays A & B. I want to do a compare among the elements of the two arrays. my @a = qw"abc def efg ghy klm ghn"; my @b = qw"def ghy jgk lom com klm"; If any element matches then set a flag. Is there any simple way to do this? Please advise.

  Read the article

• Perl - how to access dot within regex?

  - by goe

  Hi, I use this codition to check if the value is alphanumeric values: $value =~ /^[a-zA-Z0-9]+$/ How can I modify this regex to account for a possible dot "." in the value without accepting any other special characters?

  Read the article

< Previous Page | 32 33 34 35 36 37 38 39 40 41 42 43  | Next Page >