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 Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by pkiller
-
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
you can use find and perl. find will search the files you want. perl will change their contents. for instance, suppose you want to change all paragraphs "<p>this is a paragraph" to "<p>this is another paragraph" on all your html files under your current directory: $...- 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...
