小编Cfr*_*eak的帖子

我试图打破300个字符,它确实很好,但我不希望它在一个单词的中间打破.我想找到一个单词的结尾或下一个可用的空格.任何帮助将不胜感激.

foreach (@$comp) {
    my $c = $_;
    $c->{reviews} = ($c->{reviews} - 1);
    my $stars;
    if($c->{reviews} == 0) {
        $stars = 0;
    } else {
        $stars = int($c->{reviews_total} / $c->{reviews});
    } 
    $c->{stars} = $stars; 

    if($c->{title}) { 
        $c->{name} = $c->{title}; 
        $c->{event} = "FOO"; 
    }
    $c->{description} =~ s/BREAK//g; 

    my (@desc) = split(//, $c->{description});   

    my $adesc;
    my $rowc = 0;
    my $count = 0;

    while($count < 300 ) {
         $adesc .= @desc[$count];
         $rowc++;
         $count++;
    }

    $c->{description} = $adesc;= '...';
}

我目前为我的UIAlertView有这个代码:

if (counter > highscore) { //if highscore is achieved show an alert
    highscore = counter;
    NSString *nssHighscore = [NSString stringWithFormat:@"%i", highscore];
    UIAlertView *alert = [[UIAlertView alloc] 
                              initWithTitle:@"Congratulations, You Got A New High Score!!"
                              message:nssHighscore
                              delegate:nil
                              cancelButtonTitle:@"Ok"
                              otherButtonTitles:@"Share"];
    [alert show];
}

我想在警报上单击"共享"按钮时运行此代码

- (IBAction)PostToFacebook:(id)sender {
    NSString *nssHighscore = [NSString stringWithFormat:@"%i", highscore];
    mySLComposerSheet = [[SLComposeViewController alloc] init];
    mySLComposerSheet = [SLComposeViewController composeViewControllerForServiceType:SLServiceTypeFacebook];
    [mySLComposerSheet setInitialText:[NSString stringWithFormat:@"My New Highscore is %d - Try to Beat it!, highscore]];
    [self presentViewController:mySLComposerSheet animated:YES completion:nil];
}

到目前为止,我一直在关注堆栈溢出的指南和问题,但无法使其正常工作.

谢谢

用于查找perl版本"perl -V"的命令提供了与平台,编译器,链接器和库,动态链接,编译时选项和本地应用的补丁相关的信息.您能告诉我这些信息的提取位置(环境变量或任何其他方法)以及每组下各种参数的描述.我在库文件包含中遇到问题,因为我的机器中安装了许多版本的Perl.

以下是我从机器上获得的描述:

我的perl5(修订版5版本10颠覆0)配置摘要:

   Platform:
        osname=MSWin32, osvers=5.1, archname=MSWin32-x86-multi-thread
        uname=''
        config_args='undef'
        hint=recommended, useposix=true, d_sigaction=undef
        useithreads=define, usemultiplicity=define
        useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
        use64bitint=undef, use64bitall=undef, uselongdouble=undef
        usemymalloc=n, bincompat5005=undef
    Compiler:
        cc='gcc', ccflags =' -s -O2 -DWIN32 -DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTE
    XT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -DPERL_MSVCRT_READFIX',
        optimize='-s -O2',
        cppflags='-DWIN32'
        ccversion='', gccversion='3.4.5', gccosandvers=''
        intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
        d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=12
        ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='long long', lseek
    size=8
        alignbytes=8, prototype=define
      Linker and Libraries:
        ld='g++', ldflags ='-s -L"C:\strawberry\perl\lib\CORE" -L"C:\strawberry\c\li
    b"'
        libpth=C:\strawberry\c\lib
        libs= -lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 …

我需要一些代码帮助.我在第一次使用烧瓶框架,最近做了一个问候世界.但我需要做的是以下内容:

GET localhost/
return hello world ---> Done

POST localhost/4
return [0 1 2 3 4] ---> not yet

逻辑很简单,我已经完成了,但我不知道如何在Web应用程序中发布它

提前致谢!