User Profile

Collapse

Profile Sidebar

Collapse
user1357
user1357
Last Activity: Jun 20 '08, 10:05 AM
Joined: Mar 31 '08
Location:
  •  
  • Time
  • Show
  • Source
Clear All
new posts
  • user1357
    started a topic help required reg eval qq
    in Perl

    help required reg eval qq

    Hi All,

    Could you please explain the difference b/w the below codes?

    when qq is used with eval and without () the o/p is different.

    Code:
    $hex1='\xd1';

$conv = eval qq "$hex1";

print "CONV IS $conv \n";
    o/p is as follows

    CONV IS SCALAR(0x183f1c 4)

    Code:
    $hex1='\xd1';
    ...
    See more | Go to post
    • user1357
      replied to Help reg printing non printable hex characters
      in Perl
      Hi Kevin

      Thanks for your pointers

      i tried in this way

      Code:
      use constant HEXD1 => "\xd1";
use constant HEXDC => "\xdc";


$arg = shift(@ARGV);

if ($arg eq "HEXD1") {
	$arg = HEXD1;
	print " HEX D1 IS $arg \n";
}
elsif ($arg eq "HEXDC") {
                $arg = HEXDC;
      ...
      See more | Go to post

        Leave a comment:

      • user1357
        started a topic Help reg printing non printable hex characters
        in Perl

        Help reg printing non printable hex characters

        Hi All,

        i am trying to write a code which will take a non printable character as an input and used as a separator for different fields

        ex : if user gives an input \xd1 the o/p should be field1 ╤ field2

        initially i have written a code to get the below lines in my program hex.pl

        Code:
        use strict;

my $seperatorArg;

$seperatorArg = shift(@ARGV);
        ...
        See more | Go to post
        • user1357
          started a topic win32::OLE
          in Perl

          win32::OLE

          Hi all,

          i am trying to run the following code


          Code:
          use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  # get already active Excel
          ...
          See more | Go to post
          No activity results to display
          Show More
          Working...