1,633 Topics

Member Avatar for
Member Avatar for Vindhyaauri

Hello!! I have to design a program which can read the following file: [CODE]k1082 SciTegic08250908273D 30 32 0 0 0 0 999 V2000 0.3230 -0.6380 -0.7700 C 0 0 1.1810 -1.2460 -1.7340 C 0 0 2.5950 -1.1640 -1.6010 C 0 0 3.1670 -0.4730 -0.5020 C 0 0 2.2620 0.0980 0.4020 …

Member Avatar for Vindhyaauri
0
157
Member Avatar for jaybstory

Hello, I am new to perl and I would like to parse a csv file in perl. The current code I have opens a file and prints new output to the terminal. I'm wondering how to write to print this information into the file instead of to the terminal. I …

Member Avatar for jaybstory
0
99
Member Avatar for Davo1977

PERL Tutor Marked Assignemt 10 Section 2 - Part B You are to write a Perl program that analyses text files to obtain statistics on their content. The program should operate as follows: 1) When run, the program should check if an argument has been provided. If not, the program …

Member Avatar for d5e5
-1
238
Member Avatar for filch

Hi, I am trying to get a perl script that a contractor created for me but I am having some issues with it. I am NOT a perl programmer and I know just enough about it to be dangerous. I am more of a PHP/CSS guy. Anyway, the purpose of …

Member Avatar for filch
0
224
Member Avatar for SergioQ

Am embarrassed to ask this but RegEx is really my kryptonite. I have a RegEx line that extracts just numbers from a string. However, I need to tell it that I only want the numbers that come BEFORE a specific set of characters, let's say SDCSDC. Any numbers after that …

Member Avatar for d5e5
0
166
Member Avatar for MOSSLover

Here is my code: package Apache2::AuthGetUser; #authenticates users based on bool value from a asmx webservice use SOAP::Lite; use Data::Dumper; use strict; use warnings; use Apache2::Access(); use Apache2::RequestRec(); use Apache2::Const ':common'; use Apache2::Log; sub handler { my $r = shift; my ($status, $password) = $r->get_basic_auth_pw; return $status unless $status == …

0
68
Member Avatar for Vandithar

Hi, I want to get the ip address of the clients who is accessing my web pages. I have the following information. [code] IP Address. . . . . . . . . . . . : 192.168.3.219 Subnet Mask . . . . . . . . . . …

0
62
Member Avatar for grouchotron

I'm attempting to write a script that logs into a web site, navigates through some links, stores some data to a text file, and logs out. I was able to log on with ease, using WWW::Mechanize. However I'm having trouble navigating through the actual website, because instead of just a …

0
53
Member Avatar for jen140

Hello again. I was trying to login to my web server protected with basic auth, and after i understood that it would be nice to automatically detect the realm so now i want to know on how to do so. Thanks in advance.

Member Avatar for jen140
0
433
Member Avatar for vignesh31

hi how can i translate these amino acids sequence into its triplet codes. this line is not working. [CODE]$aa =~ tr/arndceqghilkmfpstwyv/ala, arg, asn, asp, cys, glu, gln, gly, his, ile, leu, lys, met, phe, pro, ser, the, trp, tyr, val/;[/CODE] is there any delimiter to separate that three letter codes.

Member Avatar for d5e5
0
220
Member Avatar for danimal132

i am editing someone else's code that creates a tracking log for a website. It is written in perl but the file is report.mas and there is another file that has to be altered too report.mas.obj for the file to work.. I am very confused what type of code this …

0
57
Member Avatar for pbhandari

Hi, I have following line in my Perl code--> system("start my.exe myfile.ext") == 0 or die "error ($?) : $!"; Q1: How do I close my.exe? Q2: If I give myfile.ex1 instead of myfile.ext, myfile fails to open. However, the error code returned by Perl is still 0. Normally (when …

0
46
Member Avatar for back2arie

Hi I have problem to get data from tag (eg: <TEXT></TEXT>). For example the string is like this: [CODE]$string = "<TEXT> Some text </TEXT>"; if($string =~ /<(TEXT)>\s*(.*)\s*<\/\1>/g) { $result = $2; print $result, "\n"; }[/CODE] It works fine, but if the string is like this: [CODE]$string = "<TEXT> Some text …

Member Avatar for k_manimuthu
0
108
Member Avatar for anunitha

Hi, i need a help to do program.i need to read multiple files and need to print out result in to new file.I had stored my datas in mycomputer/programs(G:)/CNV/(inside this i have 4 folder and each folder consits of number of datas...) plz give me perl script to do this

Member Avatar for anunitha
0
76
Member Avatar for Vindhyaauri

Hello , I have an issue of running a perl script in shell. Basically, im very new to programming. So, i dont understand how to pass an argument. The program basically reads a file which has to be invoked in Shell. [CODE] perl pgm.pl reg1.pdb[/CODE] So, in the above line, …

Member Avatar for d5e5
0
103
Member Avatar for jen140

Hello all. I have a small problem, the next code finds the neden content, but it doenst print it: [CODE]$string = "#324423asdd asd 'BecamePosters' "; if($string =~ m/'[a-zA-Z]{1,40}'/) { print "ok!\n"; print $1; } else { print "not ok!\n"; }[/CODE] It only prints "ok!\n" but nothing more. Also triyed m/'*'/ …

Member Avatar for jen140
0
98
Member Avatar for chrisname

So I decided to learn Perl yesterday, and I'm writing a Perl script to try and parse HTML files (not using regexps for the actual parsing). Anyway; I have this subroutine to iterate over each argument in @ARGV and, if one of them is an existing file, return it's filename …

Member Avatar for chrisname
0
141
Member Avatar for ItecKid

Hello, I am trying to send e-mail using Perl and Net::SMTP::SSL. However, I receive errors when running this script (example from documentation): [code=perl] #!/usr/bin/perl -w use Net::SMTP::SSL; sub send_mail { my $to = $_[0]; my $subject = $_[1]; my $body = $_[2]; my $from = 'me@gmail.com'; my $password = 'MySuperSecretPassword'; …

Member Avatar for simfex
0
653
Member Avatar for lalsumit

Hi all, I am new to perl I want to compare two files File 1 is having protein names like Biotin-[acetyl-CoA-carboxylase] ligase Acetyl-/propionyl-coenzyme A carboxylase alpha chain Acetyl-CoA carboxylase, carboxyl transferase, beta subunit biotin carboxylase-like protein CYCLOPROPANE-FATTY-ACYL-PHOSPHOLIPID SYNTHASE 1 CYCLOPROPANE-FATTY-ACYL-PHOSPHOLIPID SYNTHASE 2 mycolic acid synthase long-chain-fatty-acid-CoA ligase 3-oxoacyl-[acyl-carrier-protein] synthase I …

Member Avatar for d5e5
0
351
Member Avatar for Vindhyaauri

Hello, I'm a newbie here and also to Perl... Have a big task of finding the lines of the form from a file ATOM 1 N LYS A 257 -5.036 -29.330 -27.709 1.0041.51 N ATOM 2 CA LYS A 257 -3.873 -29.331 -26.757 1.00 41.55 C . . . ....n …

Member Avatar for d5e5
-1
435
Member Avatar for iWire

I have just transferred a site over to a new server. The perl scripts were working just fine on the old server and now it seems to be having issues and outputting the header content to the screen. When I fill out a login form that gets send to the …

Member Avatar for wickedxter
0
128
Member Avatar for pavan146

hey can any1 pls tl me hw to work on cgi pgms on windows..m new to ds language,facin a prob durin connectin perl prog throu browser...hw to do dat

Member Avatar for terrial
0
89
Member Avatar for drjay1627

Hello, I need to compare arrays in perl. Now the arrays are arrays of strings. The strings are similar to the following pattern: user:user@machinename.domain.com There are 4 machines. M1 M2 M3 M4 There are 4 arrays and each with a bunch of users. some users appear on multiple machines. I …

Member Avatar for d5e5
0
111
Member Avatar for viktorijakup

Hi ! My script don't understand file name with "interval", help me with it problem !!!! [CODE] use Cwd; $dir = cwd(); $vardas=$dir; while($vardas=~/(.*\/)+(.*)/){ $vardas="$2_source"; } $newfile = "$dir/$vardas.tex"; FILE: foreach $file (<@ARGV>) { if ($file eq $newfile) {next FILE}; if (-e "$dir/$vardas.tex"){ print "File exist\n";} else{ print "Rename: "."$file\n"; …

Member Avatar for mitchems
0
68
Member Avatar for KevinADC

This is a bare-bones search and replace script that uses perls in-place editor and the File::Find module to get the job done quickly. It will search in all sub directories of the start directory and find and replace the text you specify in the type of file you specify. Keep …

Member Avatar for roswell1329
0
232
Member Avatar for Vandithar

Hi, I have a sentences like this: I have words like this: Example 1: [code] $string="control"; @arr= qw(Our data suggests that shape and growth control are unequally affected,The growth of tissue is control,The observed regulation is due to elevated levels in the blood,The sugar levels are in control and there …

Member Avatar for vapro
0
133
Member Avatar for wmsigler

Is it possible to apply XSLT on XML output from a Perl CGI script? I.e. I have a registration form, when submitted it makes an Ajax request, building a query string from the form inputs. The request is made to a Perl CGI script. This script can be called two …

0
103
Member Avatar for rhodge09
Member Avatar for rhodge09
0
304
Member Avatar for SergioQ

Hi All, So I use Net::POP3 to look into my email server. What I wanted to know is if there is any module that allows me to MODIFY the email messages? Sure between Mail:: and Net::POP3 I can forward them, delete them, etc. But would love to be able to …

Member Avatar for 7stud
0
104
Member Avatar for roswell1329

My company is retiring an online document warehousing application that stored lots of text data. The application stored the data in a folder hierarchy that looked just like a Windows folder tree. I'm trying to replicate that hierarchy on a UNIX file system, but the tools provided with the application …

Member Avatar for roswell1329
0
92

The End.