Search Results

Search found 3397 results on 136 pages for 'libwww perl'.

Page 11/136 | < Previous Page | 7 8 9 10 11 12 13 14 15 16 17 18  | Next Page >

• Changing one byte of a file in Perl

  - by jnylen

  Very similar to http://stackoverflow.com/questions/845127/changing-one-byte-in-a-file-in-c, but in Perl instead of C: How can I open a binary file in Perl, change ONLY the first byte, and write it back out?

  Read the article

• Perl Tk: Clearing Frame Elements Value

  - by pavun_cool

  Hi All, In Perl tk I have designed one interface in that I have one frame . That frame has some Entry And Text box . When I am clicking the button those Entry and Text value has to clear in the Frame .I know that we can access each ( Entry , Text ) object then we can clear using delete function. I need some as like html reset functionality . How can do this things in Perl Tk...... Thanks ...

  Read the article

• Perl Script in PHP

  - by Sev

  I have a perl script, which takes a query string parameter, connects to a database and displays data. I'd like to include that script in a PHP file like so: include('perlscript.pl?item=302'); Such that the perl script's response is displayed on the PHP/HTML page. How can I do this?

  Read the article

• perl inside a shell script

  - by benjamin button

  I want to do this in a shell script: #!/bin/ksh #i am setting a variable "var" inside perl script perl test.pl #Now i want to use that value in the shell script echo $var How do i do it?

  Read the article

• perl regex escape characters

  - by freshWoWer

  I have heard perl is a good language at doing regex but i am a bit confused at the characters that requires escaping I tested the code on http://regexlib.com/RETester.aspx and got the result I want //home/dev/abc/code/hello/world.cpp#1 //home/dev/((.*?)/[^/]+).*# Match $1 $2 //home/dev/abc/code/hello/world.cpp# abc/code abc However, I am not quite sure how do i translate this to perl code I tried, \/\/home\/dev\/\(\(\.\*\?\)\/\[\^\/\]\+\)\.\*\# and \/\/home\/dev\/((.*?)\/[^\/]+).*\# and both failed Don't you think the escaping makes the regex very unreadable? Am i using something wrong?

  Read the article

• Perl & PHP project requirement

  - by kiruthika

  Hi all, I have learned Perl and PHP.So I want to do simple real time project in this by that I can improve my knowledge in Perl and PHP. Can anyone suggest me any requirements. Thanks in Advance

  Read the article

• Piping input to a Java app with Perl

  - by user319479

  I need to write a Perl script that pipes input into a Java program. This is related to this, but that didn't help me. My issue is that the Java app doesn't get the print statements until I close the handle. What I found online was that $| needs to be set to something greater than 0, in which case newline characters will flush the buffer. This still doesn't work. This is the script: #! /usr/bin/perl -w use strict; use File::Basename; $|=1; open(TP, "| java -jar test.jar") or die "fail"; sleep(2); print TP "this is test 1\n"; print TP "this is test 2\n"; print "tests printed, waiting 5s\n"; sleep(5); print "wait over. closing handle...\n"; close TP; print "closed.\n"; print "sleeping for 5s...\n"; sleep(5); print "script finished!\n"; exit And here is a sample Java app: import java.util.Scanner; public class test{ public static void main( String[] args ){ Scanner sc = new Scanner( System.in ); int crashcount = 0; while( true ){ try{ String input = sc.nextLine(); System.out.println( ":: INPUT: " + input ); if( "bananas".equals(input) ){ break; } } catch( Exception e ){ System.out.println( ":: EXCEPTION: " + e.toString() ); crashcount++; if( crashcount == 5 ){ System.out.println( ":: Looks like stdin is broke" ); break; } } } System.out.println( ":: IT'S OVER!" ); return; } } The Java app should respond to receiving the test prints immediately, but it doesn't until the close statement in the Perl script. What am I doing wrong? Note: the fix can only be in the Perl script. The Java app can't be changed. Also, File::Basename is there because I'm using it in the real script.

  Read the article

• What's happening with Perl 6?

  - by Notitze

  Is there any visible progress? Is it now just an academic exercise? Do you believe Perl will continue to evolve with or without Perl 6 or will soon be forgotten?

  Read the article

• Has perl thread same advantage as kernel thread?

  - by Niraj Nawanit

  Kernel threads do context switch at kernel level instead of process level. I am planning to set up an httpserver in perl. I want to know if perl threads have same advantage as kernel threads from the perspective of context switch.

  Read the article

• Executing procedural queries in perl

  - by KalpaG

  I have a query like this set @valid_total:=0; set @invalid_total:=0; select week as weekno, measured_week,project_id as project, role_category_id as role_category, valid_count,valid_tickets, (@valid_total := @valid_total + valid_count) as valid_total, invalid_count,invalid_tickets, (@invalid_total := @invalid_total + invalid_count) as invalid_total from metric_fault_bug_project where measured_week = yearweek(curdate()) and role_category_id = 1 and project_id = 11; it executes fine in heidi (MySQL client) but when it comes to perl, it gives me this error DBD::mysql::st execute failed: You have an error in your SQL syntax; check the m anual that corresponds to your MySQL server version for the right syntax to use near ':=0; set :=0; select week as weekno, measured_week,project_id as project' at line 1 at D:\Mx\scripts\test.pl line 35. Can't execute SQL statement: You have an error in your SQL syntax; check the man ual that corresponds to your MySQL server version for the right syntax to use ne ar ':=0; set :=0; select week as weekno, measured_week,project_id as project' at line 1 The problem seem to be in the set @valid_total := 0; line. I am fairly new to Perl. Can anyone help? this is the complete perl code #!/usr/bin/perl #use lib '/x01/home/kalpag/libs'; use DBI; use strict; use warnings; my $sid = 'issues'; my $user = 'root'; my $passwd = 'kalpa'; my $connection = "DBI:mysql:database=$sid;host=localhost"; my $dbhh = DBI->connect( $connection, $user, $passwd) || die "Database connection not made: $DBI::errstr"; my $sql_query = 'set @valid_total:=0; set @invalid_total:=0; select week as weekno, measured_week,project_id, role_category_id as role_category, valid_count,valid_tickets, (@valid_total := @valid_total + valid_count) as valid_total, invalid_count,invalid_tickets, (@invalid_total := @invalid_total + invalid_count) as invalid_total from metric_fault_bug_project where measured_week = yearweek(curdate()) and role_category_id = 1 and project_id = 11'; my $sth = $dbhh->prepare($sql_query) or die "Can't prepare SQL statement: $DBI::errstr\n"; $sth->execute() or die "Can't execute SQL statement: $DBI::errstr\n"; while ( my @memory = $sth->fetchrow() ) { print "@memory \n"; }

  Read the article

• Perl: How to retrieve XMLHttpRequest

  - by Peterim

  Hi guys! I have a client-side appliction which submits some data via AJAX POST request (request.open("POST", url, flag)) to my Perl CGI script. How do I retrieve this data with Perl and return some other data (AJAX response) instead? Thank you!

  Read the article

• Perl php script auto install?

  - by Dr Hydralisk

  I was think of learning Perl cause I hear around town its good for system admin things. Would it be possible to use it to automatically install a php script? I need to install a custom script on a few different server and wanted to know how I could make something in Perl to do it (like move scripts over to directory and stuff)?

  Read the article

• Perl Cron Scheduler: start at x time, execute every y minutes forever

  - by Greg

  I'm using perl cron, and I want to make a rule like this run every xx min/hours starting at yy:yy time (until the end of time) How would I put this into a cron string? perl:cron seems to use the same syntax as regular cron so a regular cron string should work TIA!

  Read the article

• why does perl complain "Use of implicit split to @_ is deprecated"

  - by Haiyuan Zhang

  the code triger the complain is as below : #!/usr/bin/perl use strict; use warnings; my $s = "aaa bbb"; my $num_of_item = split(/\s+/, $) ; print $num_of_item; when I run the code, perl complains that "Use of implicit split to @_ is deprecated" . I really have no "context" for the problem, so expect you help to explain what's wrong with the code.

  Read the article

• Calling Perl and/or Python from Ruby

  - by Yktula

  Would it be possible to integrate Python (and/or Perl) and Ruby with some degree of transparency? I've looked at http://www.goto.info.waseda.ac.jp/~fukusima/ruby/python/doc/ and http://code.google.com/p/ruby-perl/ , but they both seem rather outdated. Perhaps this is not an appropriate approach, but would it be possible to generate a Ruby interface for Python's C API?

  Read the article

• casting udp streams in perl

  - by user314536

  hello. my Perl scripts gets a udp response that is built out of 2 integers + float numbers. the problem is that the udp streams is one long stream of bytes. how do i cast the stream into parameters using Perl ?

  Read the article

• Help to write webserver in Perl?

  - by Jon Skeet

  i has to write webserver with Perl. here what i have so far #!/usr/bin/perl what next? plz help me!! i am real jon skeet,not fake!

  Read the article

• $1 vs \1 in Perl regex substitutions

  - by Mr Foo Bar

  I'm debugging some code and wondered if there is any practical difference between $1 and \1 in Perl regex substitutions For example: my $package_name = "Some::Package::ButNotThis"; $package_name =~ s{^(\w+::\w+)}{$1}; print $package_name; # Some::Package This following line seems functionally equivalent: $package_name =~ s{^(\w+::w+)}{\1}; Are there subtle differences between these two statements? Do they behave differently in different versions of Perl?

  Read the article

• Calling a Perl Subroutine from Flex

  - by NLV

  Hello I'm new to Perl as well as Flex. I've just gone through the basic(and exciting) stuffs in both of them. I just want to call a Perl subroutine from Flex. Is it possible? If so how? Thank you NLV

  Read the article

• Which IDE should I use to learn Perl?

  - by Befall

  I've got a few books and helpful guides to Perl from my company's scripting guy, but I can't seem to find where the best IDE for Perl is. Mind you, simple is better. I'm just learning for now.

  Read the article

• Perl Tk : Displaying window in bottom right Corner

  - by pavun_cool

  Hi All. I have planned to do the chatting the exercise Perl socket. In this I want to display the require window using Perl Tk . Here my requirement is that the window has to display in the bottom right corner . It is like Gmail Chat window. What I need to for achieve this thing. By default it displays in top left corner. Thanks in Advance

  Read the article

• perl equivalent to awk /text/,/END/

  - by kSiR

  I am looking to replace a nasty shell script that uses awk to trim down some html, problem is I cannot find anything in perl that does the aforementioned function awk '/<TABLE\ WIDTH\=\"100\%\" BORDER\=1\ CELLSPACING\=0><TR\ class\=\"tabhead\"><TH>State<\/TH>/,/END/' How can I do this in perl?

  Read the article

• Perl script -need some help.

  - by benjamin button

  I have an sql file which will give me an output like below: 10|1 10|2 10|3 11|2 11|4 . . . I am using this in a perl script like below: my @tmp_cycledef = `sqlplus -s $connstr \@DLCycleState.sql`; after this above statement,since tmp_cycledef has all the output of the sql query i want to show the output as: 10 1,2,3 11 2,4 how could i do this using perl?

  Read the article

• Learning Perl, what to code in?

  - by Befall

  Hey all, I've got a few books and helpful guides to Perl from my company's scripting guy, but I can't seem to find where the best IDE for Perl is. Mind you, simple is better. I'm just learning for now. Thanks in advance!

  Read the article

• Out of memory hash sort in Perl

  - by syker

  I am sorting a hash in Perl. I encountered an Out of memory error when running my Perl Script: foreach $key (sort (keys(%hash))) { .... } How do I sort a hash that has tons of data?

  Read the article

< Previous Page | 7 8 9 10 11 12 13 14 15 16 17 18  | Next Page >