http://www.perlmonks.org?node_id=358908

Public Scratchpad

Download, Select Code To D/L

---

for ww:

You missed a double quote towards the end. I get the uninitialised value in concatenation warnings too.

$message =~ s~\[size=(.+?)\](.+?)\[/size\]~"<font size=\"".(($1 > 10) 
+? 10 : $1)."\">$2</font>"~eisg;
[download]

---

   if (done) {
      String code = doSolve();
      String newurl = "http://localhost/?node=game&action=solove&code=
+" + code;

      try {
         getAppletContext().showDocument(new URL(newurl));
      }
      catch (Exception ex) {}
      endGame();
   }

   public String doSolve() {
    String file = "/java/file";
    String test = "yyyyyy";

    try {
      URL url = new URL(getDocumentBase(), file);
      BufferedReader in = new BufferedReader(new InputStreamReader(url
+.openStream()));
      String code = in.readLine();
      test = code;
    }
    catch (IOException e) {}

    return test;
    //System.out.println("string:" + code);
  }
[download]