小编Daa*_*ish的帖子

考虑:

#!/usr/local/bin/perl
$files = "C:\\Users\\A\\workspace\\CCoverage\\backup.txt";
unlink ($files);
open (OUTFILE, '>>$files');
print OUTFILE "Something\n";
close (OUTFILE);

以上是我在Perl中编写的一个简单的子例程,但它似乎不起作用.我怎样才能使它工作？

我需要将一个非常大的二进制值转换为十进制等值.因为它是一个大整数我使用BigInteger.那么如何将这个二进制数转换为BigInteger呢？

是否可以将数组的引用分配为key : valueperl中哈希表对中的值？

如果我们不在Perl中关闭文件有多严重？如果我在同一个程序中再次访问它会影响程序或文件吗？

#!/usr/local/bin/perl
sub trial
{
    open (LOGFILE, 'C:\Users\out.txt');
    trial();
}
trial();

请忽略它将进入无限循环.

文件句柄LOGFILE是本地方法还是私有方法？如果不是,我该如何将其设为私有/本地？我知道我的.但我不知道如何在文件句柄上使用它.

是否可以将文件句柄作为参数发送到PERL中的子例程？

如果是,您是否可以帮助显示如何接收它并在子例程中使用它的示例代码段？

import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.SwingUtilities;

public class SimpleExample extends JFrame {

    public SimpleExample() {

        setTitle("Simple example");
        setSize(500, 500);
        setLocationRelativeTo(null);
        setDefaultCloseOperation(EXIT_ON_CLOSE);
        JButton jb = new JButton("TEST");
        jb.setBorderPainted(true);
        jb.setBounds(5, 5, 1, 1); ---> This line
        add(jb);

    }

    public static void main(String[] args) {

        SwingUtilities.invokeLater(new Runnable() {
            @Override
            public void run() {
                SimpleExample ex = new SimpleExample();
                ex.setVisible(true);
            }
        });
    }
}

只需创建一个首选大小的简单按钮。该setBounds方法似乎不起作用。我哪里错了？

考虑:

sub abc()
{

}

abc(@array, $a);

如何访问@array和$a子程序abc()？

我知道$_[0]并且$_[1],但我不确定我是否可以将它用于数组.

我有一组将用作键的字符串，对于特定的字符串，我希望调用一个函数。那么是否可以为该对中的值分配一个函数？

exampleMap.get("SOME_STRING"); // should call a function abc();

我在一个程序中乘以两个巨大的BigInteger值.它失败了.什么是限制BigInteger和BigDecimal？

    this
    is just
    an example.

让我们假设上面是out.txt.我想读取out.txt并写入同一个文件.

    <Hi >
    <this>
    <is just>
    <an example.>

修改了out.txt.我想在某些行的开头和结尾添加标签.因为我将多次读取该文件,所以每次都无法将其写入不同的文件.

编辑1 我尝试使用,"+<"但它给出了这样的输出:

Hi
this
is just
an example.
<Hi >
<this>
<is just>
<an example.>
 **out.txt**

编辑2 代码参考:

open(my $fh, "+<", "out.txt");# or die "cannot open < C:\Users\daanishs\workspace\CCoverage\out.txt: $!";
     while(<$fh>)
     {
        $s1 = "<";
        $s2 = $_;
        $s3 = ">";
        $str = $s1 . $s2 . $s3;
        print $fh "$str";
     }

use warnings;
use strict;

my @array = (1,2,3,4,5);
my $v = 1;

sub by_ref 
{
    my ($array_ref,$v) = @_;  
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}

by_ref(\@array,$v);
print "Array changed: @$array\n";

我@array通过引用传递(我假设我做得对).我希望子例程中所做的更改@array能够反映在调用子例程中.我不知道我哪里出错了.先感谢您.