Perl脚本转换为C# [英] Perl script convert to C#

问题描述

我在Perl中有一个小脚本，需要将其转换为C#.我想在我的C#Windows Form应用程序中使用它.是否知道是否有将Perl转换为C#的程序?

提前谢谢！

----------------------

Hi,

I got a small script in Perl that needs to be converted to C#. I want to use it in my C# Windows Form application. Does any know if there is an program to convert Perl to C# ?

Thanks in advance!

----------------------

use MIME::Base64;
use strict;
use SOAP::Lite;

# Instance
my $SNC_HOST = "http://website.com";
my $base64;
my $buf;

# upload and attach a file on the local disk, base 64 encode it into a string first
open(FILE, "c:/number_test.xls") or die "$!";
while (read(FILE, $buf, 60*57)) {
  $base64 .= encode_base64($buf);
}

# call the sub routine to attach
attach_incident();

sub attach_incident {
  # target the ecc_queue table
  my $soap = SOAP::Lite->proxy("$SNC_HOST/ecc_queue.do?SOAP");
  my $method = SOAP::Data->name(''insert'')->attr({xmlns => ''http://website.com''});

  # set the ecc_queue parameters
  my @params = (SOAP::Data->name(agent => ''AttachmentCreator''));
  push(@params, SOAP::Data->name(topic => ''AttachmentCreator'') );

  # identify the file name and its mime type
  push(@params, SOAP::Data->name(name => ''number_test.xls:application/vnd.ms-excel'') );

  # attach to the incident, specifying its sys_id
  push(@params, SOAP::Data->name(source => ''incident:dd90c5d70a0a0b39000aac5aee704ae8'') );

  # set the payload to be the base 64 encoded string representation of the file
  push(@params, SOAP::Data->name(payload => $base64) );

  # invoke the web service
  my $result = $soap->call($method => @params);

  print_fault($result);

  print_result($result);
}

sub print_result {
  my ($result) = @_;

  if ($result->body && $result->body->{''insertResponse''}) {
    my %keyHash = %{ $result->body->{''insertResponse''} };
    foreach my $k (keys %keyHash) {
        print "name=$k   value=$keyHash{$k}\n";
    }
  }
}

sub print_fault {
  my ($result) = @_;

  if ($result->fault) {
    print "faultcode=" . $result->fault->{''faultcode''} . "\n";
    print "faultstring=" . $result->fault->{''faultstring''} . "\n";
    print "detail=" . $result->fault->{''detail''} . "\n";
  }
}

# use the itil user for basic auth credentials
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
   return ''itil'' => ''itil'';
}

推荐答案

SNC_HOST ="http://website.com"; my

SNC_HOST = "http://website.com"; my

base64; 我的

base64; my

buf; #上传文件并将其附加到本地磁盘上，以64为基数首先将其编码为字符串 打开(FILE，"c:/number_test.xls")或死于"

buf; # upload and attach a file on the local disk, base 64 encode it into a string first open(FILE, "c:/number_test.xls") or die "

这篇关于Perl脚本转换为C#的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！