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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Heeeeeeeeeeeeelp guys
Yes, try move your CD-Rom to IDE-Secondary-master. Regards, Carlos Almeida.- pkiller
- Post #4
- Forum: Sun: Solaris
-
validation
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 -
Changing or deleting text
one example: remove all paragraphs, the contains the text "old material" on all html files under "web_pages" $ find web_pages -name \*.html -type f | xargs perl -i -p -e 'BEGIN{undef $/} s/<p>[^<]*old material[^<]*//sg' -- pkiller -
Uppercase usernames: why not?
first of all, it might cause a lot of confusion having a user named "Pkiller" other (different) named "PKiller" and also "pkiller". another aspect to take into account, is the mail. in most implementations, mail is case insensitive, so a pkiller@foo.bar is...- pkiller
- Post #2
- Forum: General UNIX discussion
-
Pattern matching/regular expression question
...is a paragraph" to "<p>this is another paragraph" 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...- pkiller
- Post #2
- Forum: General UNIX discussion
-
validation
do a little changes on the if's. that is, currently, you have (on the http:// part) this: if ($vars_gen{'Field2Data'} eq "url") { if (($in{'Field2'} eq "") || ($in{'Field2'} !~ /http... turn this into: if ($vars_gen{'Field2Data'} eq "url" and... -
Quick Question
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 "@ODB=sort(@old_list);" by: @ODB=sort {@aa=split /\|/, $a... -
using modules in other directories
Sure it's possible. You must quote the path (with double quotes, for instance): use lib "/home3/mysite/public_html/modules"; Or: BEGIN { push @INC, "/home3/mysite/public_html/modules" } ... cya -- pkiller -
How can I split a string of characters into two values?
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... -
variable interpolation to sendmail - help please urgent.
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 "$$_{1}" seems rather strange to me. what are you trying to do? on the... -
Sendmail duplicating emails
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 "sendmail recipient" and also specifying on the head "To: ...". Try only one of them: 1. using the "-t" flag for... -
perl
try this script: while (<>) { @a=split /:/; @b=split " ",$a[4]; $x{$b[0]}++; push @{$z{$b[0]}},$a[4] } for (keys %x) { $x{$_}>1 or next; print join("\n",@{$z{$_}}),"\n"; } if this is on file "run.pl", then run as ...- pkiller
- Post #3
- Forum: General UNIX discussion
-
Strange Problem
your missing the "import module" clause, is this case, you should import time: # cat x import time day = time.strftime("%d", time.gmtime(time.time())) print day # python x 20 -- pkiller -
variable interpolation to sendmail - help please urgent.
I don't know what the function "sendmail()" 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 -
Sorting on Keys
find a way of breaking (or accessing) your fields individually. Then sort, search, whatever... unix /etc/passwd contains 7 fields separated by ":" to sort by 3rd field (user id): perl -e '@a=<>; @b = sort { @aa=split /:/,$a; @bb=split /:/,$b; $aa[2] <=> $bb[2] } @a; print... -
How can I split a string of characters into two values?
...the concatenation string operator in perl is "." and not "+" (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 -
Shell Programming
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 "==== $1 ====" sed 3q "$1" shift done also, the...- pkiller
- Post #4
- Forum: General UNIX discussion
-
make: no targets specified and no makefile found
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- pkiller
- Post #2
- Forum: Linux (server)
-
How to re-initialize an array ???
...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... -
feof problems
...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,"%s %s %s %s", lstptr->field0, lstptr->field1, lstptr->field2, lstptr>field3) <=...
