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 Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
lost pass phase for ssl
the person who created our keys for ssl has left. We had to restart the server but ssl will not come up without entering the pass phase. Is there anything that can be done to remedy this being no one knows the passphase?- arcnon
- Thread
- Replies: 1
- Forum: Linux (server)
-
perl + expect
I have a perl cgi that I am trying execute a expect script from. I set the expect script to www in the perl script I chdir() to the script path and `expect ./script.exp`; but it isnt running btw script.exp does run from the commandline so I am assuming I am having permission problems. How...- arcnon
- Thread
- Replies: 1
- Forum: UNIX Scripting
-
expect and timestamp
what do I need to do to get this to work DATE="timestamp -format %Y%m%d%H" BNAME="users.${DATE}"- arcnon
- Thread
- Replies: 1
- Forum: UNIX Scripting
-
expect + grep question
what I want to do is find a pid. Grep the number to a new variable ($PID) then kill that process. my broken attempt set varReturned send -- "ps -A |grep rad\r" set PID "$varReturned |grep ([0-9]*)" send -- "sudo kill $PID\r" it error says: wrong # args: should be "set varName ?newValue?"...- arcnon
- Thread
- Replies: 7
- Forum: UNIX Scripting
-
what is this doing?
Is this looping while the line is less than 2358? If not what is it doing? while ( [ $((loop)) -lt 2358 ] ) do ... done any help would be appreciated- arcnon
- Thread
- Replies: 1
- Forum: UNIX Scripting
-
custom error handling
what I am tring to accomplish, is create a sub that I can pass my custom error data. I am looking for a better way of pulling it off. error('error:',"Incorrect interface call should be 'RST'").die; sub error{ print join("\n", @_)."\n"; } Is there a flag that I can use to pass the line... -
accessing data in DBI object
I cant seen to figure out how to access the the data in the DBI object and get it back in. $Query_Statement="select fname,lname,address,city,state,zip,phone,email FROM main order by lname,fname;"; my $DataOut = $DBHandle->prepare($Query_Statement); $DataOut->execute(); foreach my... -
using modules based on platform
what is the best stradigy to use modules and the like based on platform? ie use Term::ANSIColor qw(:constants); unix & os x use Win32::Console::ANSI; windows also requires this to display ansii color I am using Config & $^O to determine the platform and use ifs to use certain platform... -
opinions & improvements
ok here is my first DOTnet page is there a better way to do this? <%@ Page Language="VB" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.SqlClient" %> <html> <head> </head> <body> <script runat="server"> Function GetDataForYear(ByVal year As String) Dim...- arcnon
- Thread
- Replies: 6
- Forum: Microsoft: ASP.NET
-
sample code tutorial info
I am very new to asp.net and am looking for a tutorial/s to help me generate a webpage as follows. ---psudocode--- for (i = current.year; i >= 1999 ; i--){ print <h1>i</h>; for (m = 1; m =< 12; m++){ if (myDataArray = get_year_&_month_records(y,m)){ print...- arcnon
- Thread
- Replies: 6
- Forum: Microsoft: ASP.NET
-
regex for whitespace kinda
I have a characacter in a file that reads CA in a hex editor. what is the easiest way to replace it. I am using the normal open(F, "test.txt") -
code sample: possible improvements
I have read that linked lists in perl are slow but I can't quite find an example of one. Is this a linked list? If so how can I change it without losing any of the functionality? #!/usr/bin/perl -w use strict; system('clear'); my @data; $data[2] = 'hi there'; my %objREF; $objREF{poker} =... -
total newb: is there a way to determine pcl version
I can determine what version of pcl is being used by just looking at the file? -
blessed object containing reference to hash
I want to alter the %find in my constructor from a accessor method. package Excel::Tabbed; use strict; use Exporter(); our @ISA = qw(Exporter); our @EXPORT = qw(connect); our $VERSION = 1.00; # ie new constructor sub connect{ my $class = $_[0]; if (-e "$_[1]"){ my... -
perl expect and OS X
I have a cocoa GUI that recieves the user & password. How do I send a command with expect like: `login $user` `sudo chmod 777 $file_path`; `$password`; is expect the way to go? Is there a differant standardized way of doing this? Thanks -
parsing excel files for speed & data access
I need to parse some excel tab delimited files. I am NOT going to edit them just use them as a reference. The first row contains the column names and the first column each row is the id. The files have various amounts of columns from 100 to 375 and as many rows as 700. considering speed would... -
show all hash keys in ref
whats wrong with this foreach my $key (key (@$allMyItems[$ITEM_array_number]->{main}{item_rules})){ print "$key\n"; } -
array references and recursive sub calls
I would like to be able to call the sub like this: my @dirs = parseDir("perl"); but recursively calling the sub to populate the same array is causing me problems. Any suggestions? #!/usr/bin/perl use strict; my (@dirs,@files); parseDir("perl"); foreach my $item (@dirs){ print... -
hash to xml and back
I have been fiddling with this trying to get XML::Simple to produce the correct xml file. It makes a file it just doesn't read it back in correctly. my %t_type = ( ... 'b' => { a => {low => 1000, high => 3000, percent => 25}, b => {low => 200,high => 2000, percent => 30}, c => {low =>... -
array in a hash in a hash access
1. Is this the correct way to write this data structure? Suggestions? 2. How do I access the size of the 'disallowed' array? 3. What is the best way to foreach this array? my %t_type = ( 'a' => { 'chance' => {'low' => 2, 'high' => 12, 'percent' => 50}, 'range'...
