Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: maskman0
  • Content: Threads
  • Order by date
  1. maskman0

    Python wrapper over perl script

    Hi I want to write a python wrpper for a perl script. could you please let me know where can i download the rpm i think it is called "perl pi". Please correct me if im wrong thanks
  2. maskman0

    query abt sprintf..

    Hi please explain me what this sprintf is trying to do. Time = 1175533048 ------ this is the key value pair of a hash. Therefore time() will have the above numeric value of Time. what does the following sprintf do : Sprintf (“E000000%9.91d%8.81x”, time() && 0x0FFFFFFF, time()) Please can...
  3. maskman0

    Http server hangs after connection

    Hi Iam so sorry to post again ...but im stuck again...:-( my $daemon = HTTP::Daemon->new( LocalAddr => $httpserver, LocalPort => $httpport, Reuse=>REUSE); if(!defined($daemon)) { print(...
  4. maskman0

    what does -> & => stand for in perl ..

    Hi All, What does an arrow " -> " stand for in perl: Is it just for calling methods or is it used for some other purpose as well... In this ekample : headers->header($mf_req_header_tag) The header function is called & its return value is assigned to "$headers". (IS THIS THE CORRECT...
  5. maskman0

    Please have a look at this code ........

    I have a package: package MAIN::Config; it has the following functions in it : sub new { -- *** This function returns the o/p as follows : GLOBAL REQ_SUBID = 0000000000000001 DATABASE DBUSER = sit PATH CONFIG_DATA_PATH = ./data/ ...etc } sub getValue(\%)...
  6. maskman0

    Question abt Pattern Matching

    Hi im new to perl can some one explain me, what do these patterns look for ? next if m/^\s*#/; next if m/^\s*$/; if (m/^\s*\[\s*(.*)\s*\]/) next unless m/^\s*([^=\s]+)\s*=\s*(.*)\s*$/; value =~ s/#.*//; $value =~ s/^\s*//; $value =~ s/\s*$//; $value =~ s/^"//; $value =~ s/"$//; $value =~...

Part and Inventory Search

Back
Top