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 bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: arcnon
  • Content: Threads
  • Order by date
  1. arcnon

    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?
  2. arcnon

    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...
  3. arcnon

    expect and timestamp

    what do I need to do to get this to work DATE="timestamp -format %Y%m%d%H" BNAME="users.${DATE}"
  4. arcnon

    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?"...
  5. arcnon

    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
  6. arcnon

    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...
  7. arcnon

    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...
  8. arcnon

    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...
  9. arcnon

    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...
  10. arcnon

    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...
  11. arcnon

    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")
  12. arcnon

    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} =...
  13. arcnon

    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?
  14. arcnon

    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...
  15. arcnon

    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
  16. arcnon

    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...
  17. arcnon

    show all hash keys in ref

    whats wrong with this foreach my $key (key (@$allMyItems[$ITEM_array_number]->{main}{item_rules})){ print "$key\n"; }
  18. arcnon

    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...
  19. arcnon

    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 =>...
  20. arcnon

    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'...

Part and Inventory Search

Back
Top