Search results for query: *

Yes, try move your CD-Rom to IDE-Secondary-master. Regards, Carlos Almeida.

hmm... can't help you more than this :( The new "if" only enters on GBStandardHTML() if $in{'Field2'} isn't empty. It seems that was what you have pretented, but I don't know enough on the inner structure of your code... cya -- pkiller

one example: remove all paragraphs, the contains the text &quot;old material&quot; on all html files under &quot;web_pages&quot; $ find web_pages -name \*.html -type f | xargs perl -i -p -e 'BEGIN{undef $/} s/<p>[^<]*old material[^<]*//sg' -- pkiller

first of all, it might cause a lot of confusion having a user named &quot;Pkiller&quot; other (different) named &quot;PKiller&quot; and also &quot;pkiller&quot;. another aspect to take into account, is the mail. in most implementations, mail is case insensitive, so a pkiller@foo.bar is...

...is a paragraph&quot; to &quot;<p>this is another paragraph&quot; on all your html files under your current directory: $ find . -name \*.html | xargs perl -i -p -e 'BEGIN{undef $/} s/<p>this is a paragraph/<p>this is another paragraph/sg' now it's a question of tunning the regular...

do a little changes on the if's. that is, currently, you have (on the http:// part) this: if ($vars_gen{'Field2Data'} eq &quot;url&quot;) { if (($in{'Field2'} eq &quot;&quot;) || ($in{'Field2'} !~ /http... turn this into: if ($vars_gen{'Field2Data'} eq &quot;url&quot; and...

Actually, currently it is sorting by the whole line on a lexical way. You must pass a hand-made function to sort, that splits and compares your field. For instance, sort by second field (array pos 1): replace &quot;@ODB=sort(@old_list);&quot; by: @ODB=sort {@aa=split /\|/, $a...

Sure it's possible. You must quote the path (with double quotes, for instance): use lib &quot;/home3/mysite/public_html/modules&quot;; Or: BEGIN { push @INC, &quot;/home3/mysite/public_html/modules&quot; } ... cya -- pkiller

Tracy, you are not correct. Your RE will left on $part1 upto the first dot, not including it. My RE will left on $part1 upto the last dot, not including it. If there is a dot on the searched expression, both REs will always left something on $part1 and $part2. The original problem, was...

hi again, if the sendmail is indeed being correctly invoked, then the only visible problem on your script, is this piece of code (at the start): for (@data){ push(@body,$$_{1}.'--'.$$_{0}.'\n'); } the &quot;$$_{1}&quot; seems rather strange to me. what are you trying to do? on the...

that's not a problem of perl itself (your code is ok), but a problem regarding the data you are feeding to sendmail. you are using the form &quot;sendmail recipient&quot; and also specifying on the head &quot;To: ...&quot;. Try only one of them: 1. using the &quot;-t&quot; flag for...

try this script: while (<>) { @a=split /:/; @b=split &quot; &quot;,$a[4]; $x{$b[0]}++; push @{$z{$b[0]}},$a[4] } for (keys %x) { $x{$_}>1 or next; print join(&quot;\n&quot;,@{$z{$_}}),&quot;\n&quot;; } if this is on file &quot;run.pl&quot;, then run as ...

your missing the &quot;import module&quot; clause, is this case, you should import time: # cat x import time day = time.strftime(&quot;%d&quot;, time.gmtime(time.time())) print day # python x 20 -- pkiller

I don't know what the function &quot;sendmail()&quot; does, but I'll bet you are passing uncorrectly the argument %mail. try: sendmail(\%mail); otherwise, you will be passing a flat list with all key-values unrolled. -- pkiller

find a way of breaking (or accessing) your fields individually. Then sort, search, whatever... unix /etc/passwd contains 7 fields separated by &quot;:&quot; to sort by 3rd field (user id): perl -e '@a=<>; @b = sort { @aa=split /:/,$a; @bb=split /:/,$b; $aa[2] <=> $bb[2] } @a; print...

...the concatenation string operator in perl is &quot;.&quot; and not &quot;+&quot; (the later is true for java or python). So, you need this: $part2 = '.' . $secondword; Also, a more direct way to do it, might be: ($part1, $part2) = $an{'example'} =~ /(.*)(\..*)/; regards, -- pkiller

if using a plain old shell script, to access from the 10th argument up, you must use shift. For instance, to print the first 3 lines of every file passed, with a litte header: while test $# -gt 0; do echo &quot;==== $1 ====&quot; sed 3q &quot;$1&quot; shift done also, the...

you must do $ ./configure && make try first to do a : $ ./configure --help to see if some options are good for you. to check your current library version, try: $ ls -al /lib/libc.* /usr/libc.* and check the names of the files (libc.so.1.2.3 for example) cya -- pkiller

...and/or loop unrolling techniques, but a simplistic, not ansi-correct, not bad-arg passing proof, implementation would be: void memset(void *x, int c, int n) { char *z = x; while (n--) *z++ = c; } the idea to get is: to work with a multidimensional array, just cast the base pointer...

...scanf, or else you might be caught on an infinite loop (if the format is not suitable to the scanf fmt string): for (;;) { lstptr = (INPUT*) malloc(sizeof(INPUT)); if (fscanf(textfile,&quot;%s %s %s %s&quot;, lstptr->field0, lstptr->field1, lstptr->field2, lstptr>field3) <=...